From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Mar 2000 13:28:42 +0000 (+0000)
Subject: (lisp-font-lock-keywords-1): Highlight
X-Git-Tag: emacs-pretest-21.0.90~4709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=11b42ef4cd754a74f739f1d5a8b17a6661b371f5;p=emacs.git

(lisp-font-lock-keywords-1): Highlight
`(defun (setf foo)' differently.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 7ce189dc967..1229a3e3cff 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2094,7 +2094,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
 		   "\\)\\)\\>"
 		   ;; 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)