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 | d0f35d60342c2828ed98a15cb60a6844b8d0f585 (patch) | |
| tree | f2a530b9ce67f4a4d8df6290363936027bdf3a04 | |
| parent | 014e52fbb4dd31c4fc44781d8cea8e2e6eaa2b7f (diff) | |
| download | emacs-d0f35d60342c2828ed98a15cb60a6844b8d0f585.tar.gz | |
Tweak change-log-font-lock-keywords
| -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 |