Mercurial > emacs

changeset 16450:82b0566ece27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak change-log-font-lock-keywords
author Simon Marshall <simon@gnu.org>
date Wed, 23 Oct 1996 09:16:54 +0000
parents 31ffc80a329d
children 0e181c85b17e
files lisp/add-log.el
diffstat 1 files changed, 22 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/add-log.el	Tue Oct 22 17:34:26 1996 +0000
+++ b/lisp/add-log.el	Wed Oct 23 09:16:54 1996 +0000
@@ -47,9 +47,28 @@
 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