diff options
| -rw-r--r-- | lisp/man.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 2130f902a35..ae3b0624d3c 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -72,7 +72,6 @@ ;;; Code: (require 'assoc) -(provide 'man) ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv ;; user variables @@ -196,6 +195,8 @@ This regular expression should start with a `^' character.") (defvar Man-reference-regexp "[-a-zA-Z0-9_.]+\\(([0-9][a-zA-Z+]*)\\)?" "*Regular expression describing a reference in the SEE ALSO section.") +(defvar Man-switches "" + "*Switches passed to the man command, as a single string.") ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ;; end user variables @@ -254,7 +255,7 @@ This regular expression should start with a `^' character.") (defun Man-build-man-command () "Builds the entire background manpage and cleaning command." - (let ((command "man %s 2>&1 | ") + (let ((command (concat "man " Man-switches " %s 2>&1 | ")) (flist Man-filter-list)) (while flist (let ((pcom (car (car flist))) @@ -555,6 +556,7 @@ Man-see-also-regexp Regexp for SEE ALSO section (or your equiv). Man-first-heading-regexp Regexp for first heading on a manpage. Man-reference-regexp Regexp matching a references in SEE ALSO. Man-version-number Superman version number. +Man-switches Background `man' command switches. The following key bindings are currently in effect in the buffer: \\{Man-mode-map}" @@ -777,4 +779,7 @@ the echo area." (insert "Using Superman version " Man-version-number ".") (message "Using Superman version %s." Man-version-number))) + +(provide 'man) + ;;; man.el ends here |