# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1119487322 0
# Node ID a7098c7b8f0f8ae2cc799bdfab2c49f23fd58d1c
# Parent  0f4f09189edfd7034ff4fe0309b1862d3f2a0c07
(change-log-font-lock-keywords): Make the regexp for
date lines stricter.

diff -r 0f4f09189edf -r a7098c7b8f0f lisp/add-log.el
--- a/lisp/add-log.el	Wed Jun 22 23:19:20 2005 +0000
+++ b/lisp/add-log.el	Thu Jun 23 00:42:02 2005 +0000
@@ -232,9 +232,13 @@
 
 (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)