Commit 75067849 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(Man-default-man-entry): Likewise.
parent 817b371c
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment