Mercurial > emacs

changeset 5572:f1e5e8a324a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-default-man-args): Use Man-specified-section-option. (Man-default-man-entry): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Wed, 12 Jan 1994 04:55:35 +0000
parents c50d6d8ad8c1
children 47fecb8960d8
files lisp/man.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Wed Jan 12 04:48:56 1994 +0000
+++ b/lisp/man.el	Wed Jan 12 04:55:35 1994 +0000
@@ -360,7 +360,9 @@
     (cond
      ((null sections) manword)
      ((consp sections) 
-      (mapconcat (lambda (n) (concat n " " manword)) sections " "))
+      (mapconcat (lambda (n) (concat Man-specified-section-option
+				     n " " manword))
+		 sections " "))
      (t
       (concat sections " " manword)))))
 
@@ -388,7 +390,8 @@
       (if (looking-at "[ \t]*([ \t]*[0-9][a-zA-Z]?[ \t]*)")
 	  (progn (skip-chars-forward "^0-9")
 		 (setq default-title
-		       (concat (buffer-substring
+		       (concat Man-specified-section-option
+			       (buffer-substring
 				(point)
 				(progn
 				  (skip-chars-forward "0-9a-zA-Z")