(change-log-font-lock-keywords): Complete 2005-04-03 change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f2fc98e54a3daecc10938fd09ae5fb458fc61cf..42126072165cc53270162130291d191cf5711a68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,9 @@
 
 2005-04-06  Lute Kamstra  <lute@gnu.org>
 
+       * add-log.el (change-log-font-lock-keywords): Complete 2005-04-03
+       change.
+
        * emacs-lisp/copyright.el (copyright-update-year): Replace the
        right subexpression.  Suggested by Jay Bingham <jay.bingham@hp.com>.
 

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 126e7ecbaa5e8500f1cc1bb1f68b8aa0932cfa59..2714df554b88c339784834186aa9a19775eacb4c 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -225,8 +225,8 @@ Note: The search is conducted only within 10%, at the beginning of the file."
       (2 'change-log-email-face)))
     ;;
     ;; File names.
-    ("^\\(?: +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
-     (1 'change-log-file-face)
+    ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
+     (2 'change-log-file-face)
      ;; Possibly further names in a list:
      ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
      ;; Possibly a parenthesized list of names:
@@ -236,8 +236,8 @@ Note: The search is conducted only within 10%, at the beginning of the file."
       nil nil (1 'change-log-list-face)))
     ;;
     ;; Function or variable names.
-    ("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
-     (1 'change-log-list-face)
+    ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
+     (2 'change-log-list-face)
      ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
       (1 'change-log-list-face)))
     ;;
@@ -250,8 +250,8 @@ Note: The search is conducted only within 10%, at the beginning of the file."
     ;; Acknowledgements.
     ;; Don't include plain "From" because that is vague;
     ;; we want to encourage people to say something more specific.
-    ("\\(^\t\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
-     2 'change-log-acknowledgement-face))
+    ("\\(^\\( +\\|\t\\)\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
+     3 'change-log-acknowledgement-face))
   "Additional expressions to highlight in Change Log mode.")
 
 (defvar change-log-mode-map