Commit bc071f64 authored by Sam Steingold's avatar Sam Steingold
Browse files

(change-log-font-lock-keywords): Support

Common Lisp function names `(setf symbol)'.
parent 94939b84
2004-06-25 Sam Steingold <sds@gnu.org>
* add-log.el (change-log-font-lock-keywords): Support Common Lisp
function names `(setf symbol)'.
2004-06-24 Richard M. Stallman <rms@gnu.org>
* replace.el (query-replace-read-args): Swallow space after \,SYMBOL.
......
......@@ -230,13 +230,16 @@ Note: The search is conducted only within 10%, at the beginning of the file."
;; Possibly further names in a list:
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
;; Possibly a parenthesized list of names:
("\\= (\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face))
("\\=, *\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face)))
("\\= (\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
nil nil (1 'change-log-list-face))
("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
nil nil (1 'change-log-list-face)))
;;
;; Function or variable names.
("^\t(\\([^) ,\n]+\\)"
("^\t(\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
(1 'change-log-list-face)
("\\=, *\\([^) ,\n]+\\)" nil nil (1 'change-log-list-face)))
("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
(1 'change-log-list-face)))
;;
;; Conditionals.
("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-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