Commit dd7d85ba authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(help-mode): Set font-lock-defaults in simple way again.
parent 4cf1b2e5
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment