# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758350535 0
# Node ID f1e5e8a324a52ec41b5ef6187e07222f9c299502
# Parent  c50d6d8ad8c1b78aa3ed0a27771b2c65d2eccead
(Man-default-man-args): Use Man-specified-section-option.
(Man-default-man-entry): Likewise.

diff -r c50d6d8ad8c1 -r f1e5e8a324a5 lisp/man.el
--- 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")