From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 15 Jul 1996 20:23:12 +0000 (+0000)
Subject: (appt-check, appt-make-list): Avoid race condition
X-Git-Tag: emacs-19.34~183
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d26feea890428ff5616b9e219778c092cd6e164;p=emacs.git

(appt-check, appt-make-list): Avoid race condition
by getting current time once, not twice.
---

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)))))