changeset 3833:70551a213fae

* man.el (Man-switches): New variable. (Man-build-man-command): Use it to build the man command. (Man-mode): Mention it in documentation.

--- a/lisp/man.el	Sat Jun 19 01:23:59 1993 +0000
+++ b/lisp/man.el	Sat Jun 19 01:44:52 1993 +0000
@@ -72,7 +72,6 @@
 ;;; Code:
 
 (require 'assoc)
-(provide 'man)
 
 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
 ;; user variables
@@ -196,6 +195,8 @@
 (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 @@
 
 (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-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 @@
       (insert "Using Superman version " Man-version-number ".")
     (message "Using Superman version %s." Man-version-number)))
 
+
+(provide 'man)
+
 ;;; man.el ends here