diary-lib.el fix for bug#7891.

* lisp/calendar/diary-lib.el (diary-font-lock-keywords):
Tweak diary-time-regexp match.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 58d30fc5007efe3793245999d52d1da6a5686073..93eaffde2cf0c81968a3a285b2b04b19922a5cde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-04  Glenn Morris  <rgm@gnu.org>
 
+       * calendar/diary-lib.el (diary-font-lock-keywords):
+       Tweak diary-time-regexp match.  (Bug#7891)
+
        * progmodes/f90.el (f90-find-tag-default): New function.  (Bug#7919)
        (f90-mode): Use it for mode's `find-tag-default-function' property.
 

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index f35f37e29ad48370d7649f4f64ee906abb130acb..42080cd7eda0b49edc80fbc366207a82b30b34c5 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -2312,9 +2312,19 @@ return a font-lock pattern matching array of MONTHS and marking SYMBOL."
                          t))
      '(1 font-lock-reference-face))
     '(diary-font-lock-sexps . font-lock-keyword-face)
+    ;; Don't need to worry about space around "-" because the first
+    ;; match takes care of that.  It does mean the "-" itself may or
+    ;; may not be fontified though.
+    ;; diary-date-forms often include a final character that is not
+    ;; part of the date (eg a non-digit to mark the end of the year).
+    ;; This can use up the only space char between a date and time (b#7891).
+    ;; Hence we use OVERRIDE, which can only override whitespace.
+    ;; FIXME it's probably better to tighten up the diary-time-regexp
+    ;; and drop the whitespace requirement below.
     `(,(format "\\(^\\|\\s-\\)%s\\(-%s\\)?" diary-time-regexp
                diary-time-regexp)
-      . 'diary-time))))
+      . (0 'diary-time t)))))
+;      . 'diary-time))))
 
 (defvar diary-font-lock-keywords (diary-font-lock-keywords)
   "Forms to highlight in `diary-mode'.")