mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Ivan Kanis 2011-06-07 23:57:38 -07:00 committed by Glenn Morris
parent 9b5c21bb24
commit 0de12c52c3
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

8
lisp/calendar/appt.el
View File

@ -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