mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(appt-convert-time): Handle "12:MMam",

Browse source 
remove extraneous string-match.
This commit is contained in:
Gerd Moellmann 1999-12-02 07:55:46 +00:00
parent 8f713f537c
commit 85bbde633a
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/calendar/appt.el
View file

@ -477,6 +477,7 @@ The time should be in either 24 hour format or am/pm format."
(setq tmp-msg-list (cdr tmp-msg-list))
(if test-input
(setq appt-time-msg-list (delq element appt-time-msg-list)))))
(appt-check)
(message "")))
@ -614,10 +615,10 @@ The time should be in either 24 hour format or am/pm format."
;; convert the time appointment time into 24 hour time
(if (and (string-match "[p][m]" time2conv) (< hr 12))
(progn
(string-match "[0-9]?[0-9]:" time2conv)
(setq hr (+ 12 hr))))
(cond ((and (string-match "pm" time2conv) (< hr 12))
(setq hr (+ 12 hr)))
((and (string-match "am" time2conv) (= hr 12))
(setq hr 0)))
;; convert the actual time
;; into minutes for comparison