comparison lisp/help.el @ 15799:2a1123f30c73

(help-fontify-buffer-function): Function deleted. (help-mode): Set font-lock-defaults in simple way again.

15798:a745f54990f5

       ;;
       ;; CLisp `:' keywords as references.
       (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'.
Commands:
\\{help-mode-map}"

  (kill-all-local-variables)
  (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
	'(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)))
  (view-mode)
  (run-hooks 'help-mode-hook))

(defun help-quit ()
  (interactive)

15799:2a1123f30c73

       ;;
       ;; CLisp `:' keywords as references.
       (list (concat "\\<:" sym-char "+\\>") 0 'font-lock-reference-face t))))
  "Default expressions to highlight in Help mode.")

(defun help-mode ()
  "Major mode for viewing help text.
Entry to this mode runs the normal hook `help-mode-hook'.
Commands:
\\{help-mode-map}"

  (kill-all-local-variables)
  (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 '(help-font-lock-keywords))
  (view-mode)
  (run-hooks 'help-mode-hook))

(defun help-quit ()
  (interactive)