(help-fontify-buffer-function): Function deleted.

(help-mode): Set font-lock-defaults in simple way again.

diff --git a/lisp/help.el b/lisp/help.el
index 67f8bb099eaee758c24e21cdf923aaf336dead41..59cc1974a7d7c4e04cf507f6da69e90b9ebf3ddd 100644 (file)
--- 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))