Mercurial > hg > xemacs-beta

comparison lisp/packages/man.el @ 193:f53b5ca2e663 r20-3b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 489f57a838ef
children a2f645c6b9f8
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
72 72
73 (defcustom Manual-buffers-have-stars nil 73 (defcustom Manual-buffers-have-stars nil
74 "*When T, manual page buffers are always named like *man*. 74 "*When T, manual page buffers are always named like *man*.
75 Otherwise, they are not if `buffers-menu-submenus-for-groups-p' is T, 75 Otherwise, they are not if `buffers-menu-submenus-for-groups-p' is T,
76 so that Manual-mode buffers will have their own submenu." 76 so that Manual-mode buffers will have their own submenu."
77 :type 'boolean
78 :group 'man)
79
80 (defcustom Manual-buffers-have-prefix t
81 "*When non-nil, manual page buffers are named with a prefix of `man '.
82 Otherwise, their titles do not have this prefix."
77 :type 'boolean 83 :type 'boolean
78 :group 'man) 84 :group 'man)
79 85
80 ;;Here is information on RosettaMan, from Neal.Becker@comsat.com (Neal Becker): 86 ;;Here is information on RosettaMan, from Neal.Becker@comsat.com (Neal Becker):
81 87
213 "*" 219 "*"
214 ""))) 220 "")))
215 (if apropos-mode 221 (if apropos-mode
216 (concat (maybe-star) "man apropos " topic (maybe-star)) 222 (concat (maybe-star) "man apropos " topic (maybe-star))
217 (concat (maybe-star) 223 (concat (maybe-star)
224 (if Manual-buffers-have-prefix
225 "man ")
218 topic 226 topic
219 (if section (concat "(" section ")") "") 227 (if section (concat "(" section ")") "")
220 (maybe-star))))) 228 (maybe-star)))))
221 (temp-buffer-show-function 229 (temp-buffer-show-function
222 (cond ((eq 't Manual-buffer-view-mode) 230 (cond ((eq 't Manual-buffer-view-mode)