diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-07-29 23:39:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-07-29 23:39:34 +0000 |
| commit | 920de3f4337072bcd82b0a395a2db64d7f8eb40d (patch) | |
| tree | d04068fbb27dea21d87320d392fd86b648204338 /lisp/help.el | |
| parent | 425435dbb3e619099ab5efe712723ef153cc28c3 (diff) | |
| download | emacs-920de3f4337072bcd82b0a395a2db64d7f8eb40d.tar.gz | |
(help-fontify-buffer-function): Function deleted.
(help-mode): Set font-lock-defaults in simple way again.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lisp/help.el b/lisp/help.el index 67f8bb099ea..59cc1974a7d 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -107,14 +107,6 @@ (list (concat "\\<:" sym-char "+\\>") 0 'font-lock-reference-face t)))) "Default expressions to highlight in Help mode.") -(defun help-fontify-buffer-function () - ;; This function's symbol is bound to font-lock-fontify-buffer-function. - (let ((font-lock-fontify-region-function 'font-lock-default-fontify-region)) - ;; Fontify as normal. - (font-lock-default-fontify-buffer) - ;; Prevent Font Lock mode from kicking in. - (setq font-lock-fontified t))) - (defun help-mode () "Major mode for viewing help text. Entry to this mode runs the normal hook `help-mode-hook'. @@ -126,11 +118,7 @@ Commands: (setq mode-name "Help") (setq major-mode 'help-mode) (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '(help-font-lock-keywords nil nil nil nil - (font-lock-inhibit-thing-lock . (lazy-lock-mode)) - (font-lock-fontify-region-function . ignore) - (font-lock-fontify-buffer-function . help-fontify-buffer-function))) + (setq font-lock-defaults '(help-font-lock-keywords)) (view-mode) (run-hooks 'help-mode-hook)) |