Commit 11b42ef4 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

`(defun (setf foo)' differently.
parent c0056275
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment