From: Richard M. Stallman Date: Tue, 9 Aug 1994 05:42:35 +0000 (+0000) Subject: (appt-check): Update on first wakeup after midnight X-Git-Tag: emacs-19.34~7360 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bd21cb17b7d63dde6f81e0076c8e41c5f9f45475;p=emacs.git (appt-check): Update on first wakeup after midnight even if that's not precisely 12:01. --- 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))