summaryrefslogtreecommitdiff
path: root/lisp/help-mode.el
diff options
context:
space:
mode:
authorColin Walters <walters@gnu.org>2002-06-12 04:54:54 +0000
committerColin Walters <walters@gnu.org>2002-06-12 04:54:54 +0000
commitb4df72dcaafffc7fdec2301e81a2b09c5e5962ee (patch)
treef4d846e910194786f8b6010420af12a92d0416e7 /lisp/help-mode.el
parentbf228aeca04dfd51b432d9fbf74e27cf5dc29a30 (diff)
downloademacs-b4df72dcaafffc7fdec2301e81a2b09c5e5962ee.tar.gz
(help-mode): Don't set `font-lock-defaults'.
Diffstat (limited to 'lisp/help-mode.el')
-rw-r--r--lisp/help-mode.el28
1 files changed, 5 insertions, 23 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index d424ff4db77..9b0bf244cf4 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -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