From: Simon Marshall <simon@gnu.org>
Date: Thu, 10 Aug 1995 15:24:09 +0000 (+0000)
Subject: Added Font Lock mode support.
X-Git-Tag: emacs-19.34~3044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=507fb916e928957b5e8c1224cf39c8a9959e478b;p=emacs.git

Added Font Lock mode support.
---

diff --git a/lisp/help.el b/lisp/help.el
index c51c027863c..96e2b19d7b9 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -89,6 +89,25 @@
 
 (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)))
+  "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'.
@@ -99,6 +118,8 @@ Commands:
   (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))
   (run-hooks 'help-mode-hook))
 
 (defun help-quit ()