From 11b42ef4cd754a74f739f1d5a8b17a6661b371f5 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Mar 2000 13:28:42 +0000
Subject: (lisp-font-lock-keywords-1): Highlight `(defun (setf foo)'
 differently.

---
 lisp/font-lock.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 7ce189dc96..1229a3e3cf 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)
-- 
cgit v1.2.3