From 75067849bfbfeeeced948e09960cf73206986472 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 12 Jan 1994 04:55:35 +0000 Subject: [PATCH] (Man-default-man-args): Use Man-specified-section-option. (Man-default-man-entry): Likewise. --- lisp/man.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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") -- 2.39.5