(diary-entry-time): Fix typo/bug:

Remove spurious left square bracket in XX:XXam regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f302da428e81acfebeda5a885631c26f12664f52..5b41992d11cd25feb47a08f18f16817cb385fc43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-17  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * calendar/diary-lib.el (diary-entry-time): Fix typo/bug:
+       Remove spurious left square bracket in XX:XXam regexp.
+
 2004-01-16  Luc Teirlinck  <teirllm@auburn.edu>
 
        * progmodes/cc-defs.el: Do not require cl at run time.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 28fcb50ef142b3c91d23de6592b90c9eb1ac71e3..d2a0075fb7116704c3d84160509e78835839a7fd 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1118,7 +1118,7 @@ be used instead of a colon (:) to separate the hour and minute parts."
              (if (equal ?a (downcase (aref s (match-beginning 2))))
                  0 1200)))
          ((string-match        ; Hour and minute  XX:XXam or XX:XXpm
-           "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\)[:.][\\([0-9][0-9]\\)\\([ap]\\)m\\>" s)
+           "\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\)[:.]\\([0-9][0-9]\\)\\([ap]\\)m\\>" s)
           (+ (* 100 (% (string-to-int
                           (substring s (match-beginning 1) (match-end 1)))
                          12))