Mercurial > emacs
comparison lisp/calendar/appt.el @ 8493:2bf3f2e9f107
(appt-check): Update on first wakeup after midnight
even if that's not precisely 12:01.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 09 Aug 1994 05:42:35 +0000 |
parents | 863e05092c58 |
children | 1e2396756604 |
comparison
equal
deleted
inserted
replaced
8492:865daa7a9faf | 8493:2bf3f2e9f107 |
---|---|
244 (substring (current-time-string) 11 13))) | 244 (substring (current-time-string) 11 13))) |
245 (cur-min (string-to-int | 245 (cur-min (string-to-int |
246 (substring (current-time-string) 14 16))) | 246 (substring (current-time-string) 14 16))) |
247 (cur-comp-time (+ (* cur-hour 60) cur-min))) | 247 (cur-comp-time (+ (* cur-hour 60) cur-min))) |
248 | 248 |
249 ;; If the time is 12:01am, we should update our | 249 ;; At the first check after 12:01am, we should update our |
250 ;; appointments to todays list. | 250 ;; appointments to today's list. |
251 | 251 |
252 (if (= cur-comp-time 1) | 252 (if (and (>= cur-comp-time 1) |
253 (<= cur-comp-time appt-display-interval)) | |
253 (if (and view-diary-entries-initially appt-display-diary) | 254 (if (and view-diary-entries-initially appt-display-diary) |
254 (diary) | 255 (diary) |
255 (let ((diary-display-hook 'appt-make-list)) | 256 (let ((diary-display-hook 'appt-make-list)) |
256 (diary)))) | 257 (diary)))) |
257 | 258 |