diff options
| author | Simon Marshall <simon@gnu.org> | 1996-10-23 09:16:54 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1996-10-23 09:16:54 +0000 |
| commit | 5572c1d1e97467801fe4f3435a20f3b6ba93f344 (patch) | |
| tree | 42242218458311690feaadfa6f6145eff87eb137 /lisp | |
| parent | 3bd8b59d605e4c8da144ad0f7d26e45aa34aae38 (diff) | |
| download | emacs-5572c1d1e97467801fe4f3435a20f3b6ba93f344.tar.gz emacs-5572c1d1e97467801fe4f3435a20f3b6ba93f344.tar.bz2 emacs-5572c1d1e97467801fe4f3435a20f3b6ba93f344.zip | |
Tweak change-log-font-lock-keywords
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/add-log.el | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index f4427182e61..45d1893e0c0 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -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 |