mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Tweak change-log-font-lock-keywords

Browse Source
This commit is contained in:
Simon Marshall 1996-10-23 09:16:54 +00:00
parent 3bd8b59d60
commit 5572c1d1e9
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/add-log.el
View File

@ -47,9 +47,28 @@ This defaults to the value returned by the `user-full-name' function.")
This defaults to the value of `user-mail-address'.")
(defvar change-log-font-lock-keywords
'(("^[12].+" . font-lock-function-name-face) ; Date line.
("^\t\\* \\([^ :\n]+\\)" 1 font-lock-comment-face) ; File name.
("(\\([^)\n]+\\)):" 1 font-lock-keyword-face)) ; Function name.
'(;;
;; Date lines, new and old styles.
("^\\sw........."
(0 font-lock-string-face)
("[A-Z][^\n<]+" nil nil (0 font-lock-reference-face)))
;;
;; File names.
("^\t\\* \\([^ ,:([\n]+\\)"
(1 font-lock-function-name-face)
("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face)))
;;
;; Function or variable names.
("(\\([^ ,:\n]+\\)"
(1 font-lock-keyword-face)
("\\=, \\([^ ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
;;
;; Conditionals.
("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face))
;;
;; Acknowledgments.
("^\t\\(From\\|Reported by\\)" 1 font-lock-comment-face)
)
"Additional expressions to highlight in Change Log mode.")
(defvar change-log-mode-map nil