martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(help-font-lock-keywords): Use font-lock-function-name-face

Browse Source 
for variables, too.

(help-mode): Set font-lock-defaults to provide bindings for
local fontification functions.
(help-fontify-buffer-function): New function.
This commit is contained in:
Richard M. Stallman
1996-07-27 02:44:27 +00:00
parent bcbe4d5724
commit 0e0ee79544
1 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
lisp/help.el
View File

@@ -91,24 +91,30 @@
(define-key help-map "q" 'help-quit)
(defvar help-font-lock-keywords
(let ((name-char "[-+a-zA-Z0-9_*]") (sym-char "[-+a-zA-Z0-9_:*]"))
(list
;;
;; The symbol itself.
(list (concat "\\`\\(" name-char "+\\)\\(:\\)?")
'(1 (if (match-beginning 2)
font-lock-function-name-face
font-lock-variable-name-face)
nil t))
;;
;; Words inside `' which tend to be symbol names.
(list (concat "`\\(" sym-char sym-char "+\\)'")
1 'font-lock-reference-face t)
;;
;; CLisp `:' keywords as references.
(list (concat "\\<:" sym-char "+\\>") 0 'font-lock-reference-face t)))
(eval-when-compile
(let ((name-char "[-+a-zA-Z0-9_*]") (sym-char "[-+a-zA-Z0-9_:*]"))
(list
;;
;; The symbol itself.
(list (concat "\\`\\(" name-char "+\\)\\(\\(:\\)\\|\\('\\)\\)")
'(1 font-lock-function-name-face))
;;
;; Words inside `' which tend to be symbol names.
(list (concat "`\\(" sym-char sym-char "+\\)'")
1 'font-lock-reference-face t)
;;
;; 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'.
@@ -120,7 +126,11 @@ Commands:
(setq mode-name "Help")
(setq major-mode 'help-mode)
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '(help-font-lock-keywords))
(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))