mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-22 18:35:09 +00:00
(Man-specified-section-option): New variable.
(Man-translate-references): Use that variable.
This commit is contained in:
parent
1f11a5cab2
commit
9de0760cc8
10
lisp/man.el
10
lisp/man.el
@ -209,6 +209,14 @@ This regular expression should start with a `^' character.")
|
||||
(defvar Man-switches ""
|
||||
"*Switches passed to the man command, as a single string.")
|
||||
|
||||
;; Would someone like to provide a good test for being on Solaris?
|
||||
;; We could give it its own value of system-type, but that has drawbacks;
|
||||
;; it would require changes in lots of places that test system-type.
|
||||
(defvar Man-specified-section-option ""
|
||||
"*Option that indicates a specified a manual section name.
|
||||
On most Unix systems, no option is needed for this.
|
||||
On Solaris, you need to set this to \"-s \".")
|
||||
|
||||
;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
||||
;; end user variables
|
||||
|
||||
@ -314,7 +322,7 @@ This regular expression should start with a `^' character.")
|
||||
(Man-downcase s2)
|
||||
s2)
|
||||
slist nil))))
|
||||
(concat section " " word))
|
||||
(concat Man-specified-section-option section " " word))
|
||||
ref))
|
||||
|
||||
(defun Man-linepos (&optional position col-p)
|
||||
|
Loading…
Reference in New Issue
Block a user