Mercurial > emacs

diff lisp/font-lock.el @ 28069:bd586b823051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-font-lock-keywords-1): Highlight `(defun (setf foo)' differently.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Mar 2000 13:28:42 +0000
parents 2c4966aa6acd
children 9ca294cf76c7
line wrap: on
line diff
--- a/lisp/font-lock.el	Thu Mar 09 00:45:15 2000 +0000
+++ b/lisp/font-lock.el	Thu Mar 09 13:28:42 2000 +0000
@@ -2094,7 +2094,7 @@
 		   "\\)\\)\\>"
 		   ;; Any whitespace and defined object.
 		   "[ \t'\(]*"
-		   "\\(\\sw+\\)?")
+		   "\\(setf[ \t]+\\sw+)\\|\\sw+\\)?")
 	   '(1 font-lock-keyword-face)
 	   '(9 (cond ((match-beginning 3) font-lock-function-name-face)
 		     ((match-beginning 6) font-lock-variable-name-face)