diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2004-01-17 13:48:26 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2004-01-17 13:48:26 +0000 |
| commit | d14b04bc3c93f090f8d865314b5a3255156124f2 (patch) | |
| tree | 54922d818c684249c1e27e4b0a31695aebcff081 /lisp/calendar | |
| parent | 7af0e8d77515d0da4d615c767628277667aa38c8 (diff) | |
| download | emacs-d14b04bc3c93f090f8d865314b5a3255156124f2.tar.gz | |
(diary-entry-time): Fix typo/bug:
Remove spurious left square bracket in XX:XXam regexp.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 28fcb50ef14..d2a0075fb71 100644 --- 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)) |