changeset 15799:2a1123f30c73

(help-fontify-buffer-function): Function deleted. (help-mode): Set font-lock-defaults in simple way again.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jul 1996 23:39:34 +0000
parents a745f54990f5
children 18c0e05d1bff
files lisp/help.el
diffstat 1 files changed, 1 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Mon Jul 29 16:27:49 1996 +0000
+++ b/lisp/help.el	Mon Jul 29 23:39:34 1996 +0000
@@ -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 @@
   (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))