(change-log-font-lock-keywords): Make the regexp for

date lines stricter.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index bde75db8ec795ab62f845a25e60f8cdaeec1a88d..03f44976760e9042c178e9dce87201d499afe454 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -232,9 +232,13 @@ Note: The search is conducted only within 10%, at the beginning of the file."
 
 (defvar change-log-font-lock-keywords
   '(;;
-    ;; Date lines, new and old styles.
-    ("^\\sw.........[0-9:+ ]*"
-     (0 'change-log-date)
+    ;; Date lines, new (2000-01-01) and old (Sat Jan  1 00:00:00 2000) styles.
+    ;; Fixme: this regepx is just an approximate one and may match
+    ;; wrongly with a non-date line existing as a random note.  In
+    ;; addition, using any kind of fixed setting like this doesn't
+    ;; work if a user customizes add-log-time-format.
+    ("^[0-9-]+ +\\|^\\(Sun\\|Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\) [A-z][a-z][a-z] [0-9:+ ]+"
+     (0 'change-log-date-face)
      ;; Name and e-mail; some people put e-mail in parens, not angles.
      ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
       (1 'change-log-name)