# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 952608522 0
# Node ID bd586b82305133a9f063bb70e119b38684da1e3f
# Parent  36b889aba7a2bce9f718783dcb68f12dbb2101e4
(lisp-font-lock-keywords-1): Highlight
`(defun (setf foo)' differently.

diff -r 36b889aba7a2 -r bd586b823051 lisp/font-lock.el
--- 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)