mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 20:32:00 -08:00
(help-mode): Don't set `font-lock-defaults'.
This commit is contained in:
parent
93e5c2b583
commit
d1282401ce
1 changed files with 5 additions and 23 deletions
|
|
@ -176,8 +176,6 @@ Commands:
|
|||
(use-local-map help-mode-map)
|
||||
(setq mode-name "Help")
|
||||
(setq major-mode 'help-mode)
|
||||
(make-local-variable 'font-lock-defaults)
|
||||
(setq font-lock-defaults nil) ; font-lock would defeat xref
|
||||
(view-mode)
|
||||
(make-local-variable 'view-no-disable-on-exit)
|
||||
(setq view-no-disable-on-exit t)
|
||||
|
|
@ -206,21 +204,6 @@ Commands:
|
|||
;; similar should be done for widget doc strings, which currently use
|
||||
;; another mechanism.
|
||||
|
||||
(defcustom help-highlight-p t
|
||||
"*If non-nil, `help-make-xrefs' highlight cross-references.
|
||||
Under a window system it highlights them with face defined by
|
||||
`help-highlight-face'."
|
||||
:group 'help
|
||||
:version "20.3"
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom help-highlight-face 'underline
|
||||
"Face used by `help-make-xrefs' to highlight cross-references.
|
||||
Must be previously-defined."
|
||||
:group 'help
|
||||
:version "20.3"
|
||||
:type 'face)
|
||||
|
||||
(defvar help-back-label (purecopy "[back]")
|
||||
"Label to use by `help-make-xrefs' for the go-back reference.")
|
||||
|
||||
|
|
@ -282,12 +265,11 @@ restore it properly when going back."
|
|||
(defun help-make-xrefs (&optional buffer)
|
||||
"Parse and hyperlink documentation cross-references in the given BUFFER.
|
||||
|
||||
Find cross-reference information in a buffer and, if
|
||||
`help-highlight-p' is non-nil, highlight it with face defined by
|
||||
`help-highlight-face'; activate such cross references for selection
|
||||
with `help-follow'. Cross-references have the canonical form `...'
|
||||
and the type of reference may be disambiguated by the preceding
|
||||
word(s) used in `help-xref-symbol-regexp'.
|
||||
Find cross-reference information in a buffer and activate such cross
|
||||
references for selection with `help-follow'. Cross-references have
|
||||
the canonical form `...' and the type of reference may be
|
||||
disambiguated by the preceding word(s) used in
|
||||
`help-xref-symbol-regexp'.
|
||||
|
||||
If the variable `help-xref-mule-regexp' is non-nil, find also
|
||||
cross-reference information related to multilingual environment
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue