Mercurial > emacs

comparison lisp/help.el @ 15810:add6684a3e67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-font-lock-keywords): Undo July 26 change.
author Richard M. Stallman <rms@gnu.org>
date Wed, 31 Jul 1996 18:17:16 +0000
parents 2a1123f30c73
children 4a675a6a15c8
comparison
equal deleted inserted replaced
15809:e367879c21df 15810:add6684a3e67
95 (let ((name-char "[-+a-zA-Z0-9_*]") (sym-char "[-+a-zA-Z0-9_:*]")) 95 (let ((name-char "[-+a-zA-Z0-9_*]") (sym-char "[-+a-zA-Z0-9_:*]"))
96 (list 96 (list
97 ;; 97 ;;
98 ;; The symbol itself. 98 ;; The symbol itself.
99 (list (concat "\\`\\(" name-char "+\\)\\(\\(:\\)\\|\\('\\)\\)") 99 (list (concat "\\`\\(" name-char "+\\)\\(\\(:\\)\\|\\('\\)\\)")
100 '(1 font-lock-function-name-face)) 100 '(1 (if (match-beginning 3)
101 font-lock-function-name-face
102 font-lock-variable-name-face)
103 nil t))
101 ;; 104 ;;
102 ;; Words inside `' which tend to be symbol names. 105 ;; Words inside `' which tend to be symbol names.
103 (list (concat "`\\(" sym-char sym-char "+\\)'") 106 (list (concat "`\\(" sym-char sym-char "+\\)'")
104 1 'font-lock-reference-face t) 107 1 'font-lock-reference-face t)
105 ;; 108 ;;