From: Ivan Kanis Date: Wed, 8 Jun 2011 06:57:38 +0000 (-0700) Subject: * lisp/calendar/appt.el (appt-check): Move some initializations into the let. X-Git-Tag: emacs-pretest-24.0.90~104^2~613 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0de12c52c344cd8fe139e1028908a807c38e9450;p=emacs.git * lisp/calendar/appt.el (appt-check): Move some initializations into the let. --- 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 + + * calendar/appt.el (appt-check): Move some initializations into the let. + 2011-06-08 Martin Rudalics * 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