(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 06a708eb5ab06397c70711aabe4c59c1ab577892..fa514efda05eea107673acb67583e8c20c1aef55 100644 (file)
--- 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")