diff options
| author | Ivan Kanis <gnu@kanis.fr> | 2011-06-07 23:57:38 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-06-07 23:57:38 -0700 |
| commit | 0de12c52c344cd8fe139e1028908a807c38e9450 (patch) | |
| tree | 6fa04a02b8dbadb3226db184fe66ccd0c09d232b /lisp/calendar | |
| parent | 9b5c21bb24447102bd07e15d07e517ceac0f4a6a (diff) | |
| download | emacs-0de12c52c344cd8fe139e1028908a807c38e9450.tar.gz | |
* lisp/calendar/appt.el (appt-check): Move some initializations into the let.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/appt.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |