mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
Tweak change-log-font-lock-keywords
This commit is contained in:
parent
3bd8b59d60
commit
5572c1d1e9
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user