From bd21cb17b7d63dde6f81e0076c8e41c5f9f45475 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Aug 1994 05:42:35 +0000 Subject: [PATCH] (appt-check): Update on first wakeup after midnight even if that's not precisely 12:01. --- lisp/calendar/appt.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 20f61facccb..68a60a708be 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -246,10 +246,11 @@ Therefore, you need to have `(display-time)' in your .emacs file." (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)) -- 2.39.5