(lisp-font-lock-keywords-1): Highlight

`(defun (setf foo)' differently.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 7ce189dc967fb7cf28ee0fe5302a13548b25d974..1229a3e3cffb4daeae4f475bf1b0892667b41752 100644 (file)
--- 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)