* lisp/calendar/appt.el (appt-check): Move some initializations into the let.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5838d198d9b919481bba19aab70ab90fccd7d96e..614db7cf66c65ebdd321beeaefc00ea22652a508 100644 (file)
--- 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 7fde9e348dbb7eba044446a518ab1f885a55ff91..5089df1d8edb7d28b46cabdac15c50baef1b87e0 100644 (file)
--- 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