From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 12 Jan 1994 04:55:35 +0000 (+0000)
Subject: (Man-default-man-args): Use Man-specified-section-option.
X-Git-Tag: emacs-19.34~10279
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75067849bfbfeeeced948e09960cf73206986472;p=emacs.git

(Man-default-man-args): Use Man-specified-section-option.
(Man-default-man-entry): Likewise.
---

diff --git a/lisp/man.el b/lisp/man.el
index 06a708eb5ab..fa514efda05 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -360,7 +360,9 @@ the current column instead of character position."
     (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 @@ default section number is selected from `Man-auto-section-alist'."
       (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")