From 480e87acecc142b05a1c0d1ae1eb289148e43b7d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 15 Jul 1996 20:23:12 +0000 Subject: (appt-check, appt-make-list): Avoid race condition by getting current time once, not twice. --- lisp/calendar/appt.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'lisp/calendar') diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index a47cacf53f6..e5fe7d05428 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -246,10 +246,9 @@ Therefore, you need to have `(display-time)' in your .emacs file." ;; Get the current time and convert it to minutes ;; from midnight. ie. 12:01am = 1, midnight = 0. - (let* ((cur-hour(string-to-int - (substring (current-time-string) 11 13))) - (cur-min (string-to-int - (substring (current-time-string) 14 16))) + (let* ((now (decode-time)) + (cur-hour (nth 2 now)) + (cur-min (nth 1 now)) (cur-comp-time (+ (* cur-hour 60) cur-min))) ;; At the first check after 12:01am, we should update our @@ -530,10 +529,9 @@ The time should be in either 24 hour format or am/pm format." ;; that are earlier than the present time can ;; be removed. - (let* ((cur-hour(string-to-int - (substring (current-time-string) 11 13))) - (cur-min (string-to-int - (substring (current-time-string) 14 16))) + (let* ((now (decode-time)) + (cur-hour (nth 2 now)) + (cur-min (nth 1 now)) (cur-comp-time (+ (* cur-hour 60) cur-min)) (appt-comp-time (car (car (car appt-time-msg-list))))) -- cgit v1.2.1