comparison lisp/calendar/appt.el @ 8493:2bf3f2e9f107

(appt-check): Update on first wakeup after midnight even if that's not precisely 12:01.

8492:865daa7a9faf

			   (substring (current-time-string) 11 13)))
		 (cur-min (string-to-int 
			   (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.

	    (if (= cur-comp-time 1)
		(if (and view-diary-entries-initially appt-display-diary)
		    (diary)
		  (let ((diary-display-hook 'appt-make-list))
		    (diary))))

8493:2bf3f2e9f107

			   (substring (current-time-string) 11 13)))
		 (cur-min (string-to-int 
			   (substring (current-time-string) 14 16)))
		 (cur-comp-time (+ (* cur-hour 60) cur-min)))

	    ;; At the first check after 12:01am, we should update our 
	    ;; appointments to today's list.

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