diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/calendar/appt.el | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5838d198d9b..614db7cf66c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-06-08 Ivan Kanis <gnu@kanis.fr> + + * calendar/appt.el (appt-check): Move some initializations into the let. + 2011-06-08 Martin Rudalics <rudalics@gmx.at> * window.el (window-height): Defalias to window-total-height. diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 7fde9e348db..5089df1d8ed 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -285,11 +285,11 @@ displayed in a window: (let* ((min-to-app -1) (prev-appt-mode-string appt-mode-string) (prev-appt-display-count appt-display-count) - now now-mins appt-mins appt-warn-time) + ;; Convert current time to minutes after midnight (12.01am = 1). + (now (decode-time)) + (now-mins (+ (* 60 (nth 2 now)) (nth 1 now))) + appt-mins appt-warn-time) (save-excursion ; FIXME ? - ;; Convert current time to minutes after midnight (12.01am = 1). - (setq now (decode-time) - now-mins (+ (* 60 (nth 2 now)) (nth 1 now))) ;; At first check in any day, update appointments to today's list. (if (or force ; eg initialize, diary save (null appt-prev-comp-time) ; first check |