Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/packages/man.el	Mon Aug 13 09:57:40 2007 +0200
+++ b/lisp/packages/man.el	Mon Aug 13 09:58:30 2007 +0200
@@ -77,6 +77,12 @@
   :type 'boolean
   :group 'man)
 
+(defcustom Manual-buffers-have-prefix t
+  "*When non-nil, manual page buffers are named with a prefix of `man '.
+Otherwise, their titles do not have this prefix."
+  :type 'boolean
+  :group 'man)
+
 ;;Here is information on RosettaMan, from Neal.Becker@comsat.com (Neal Becker):
 
 ;;RosettaMan is a filter for UNIX manual pages.  It takes as input man
@@ -215,6 +221,8 @@
 		     (if apropos-mode
 			 (concat (maybe-star) "man apropos " topic (maybe-star))
 		       (concat (maybe-star)
+			       (if Manual-buffers-have-prefix
+				   "man ")
 			       topic
 			       (if section (concat "(" section ")") "")
 			       (maybe-star)))))