# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776410955 0
# Node ID 2bf3f2e9f107a2b4c238b4f27eedb7f35afbcbe3
# Parent  865daa7a9faf1a1f28d2cac03c6e27f10606f2be
(appt-check): Update on first wakeup after midnight
even if that's not precisely 12:01.

diff -r 865daa7a9faf -r 2bf3f2e9f107 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Tue Aug 09 04:29:53 1994 +0000
+++ b/lisp/calendar/appt.el	Tue Aug 09 05:42:35 1994 +0000
@@ -246,10 +246,11 @@
 			   (substring (current-time-string) 14 16)))
 		 (cur-comp-time (+ (* cur-hour 60) cur-min)))
 
-	    ;; If the time is 12:01am, we should update our 
-	    ;; appointments to todays list.
+	    ;; At the first check after 12:01am, we should update our 
+	    ;; appointments to today's list.
 
-	    (if (= cur-comp-time 1)
+	    (if (and (>= cur-comp-time 1)
+		     (<= cur-comp-time appt-display-interval))
 		(if (and view-diary-entries-initially appt-display-diary)
 		    (diary)
 		  (let ((diary-display-hook 'appt-make-list))