[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104534: * lisp/calendar/appt.el (app
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104534: * lisp/calendar/appt.el (appt-check): Move some initializations into the let. |
Date: |
Tue, 07 Jun 2011 23:57:38 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104534
author: Ivan Kanis <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-06-07 23:57:38 -0700
message:
* lisp/calendar/appt.el (appt-check): Move some initializations into the let.
modified:
lisp/ChangeLog
lisp/calendar/appt.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-06-08 05:40:45 +0000
+++ b/lisp/ChangeLog 2011-06-08 06:57:38 +0000
@@ -1,3 +1,7 @@
+2011-06-08 Ivan Kanis <address@hidden>
+
+ * calendar/appt.el (appt-check): Move some initializations into the let.
+
2011-06-08 Martin Rudalics <address@hidden>
* window.el (window-height): Defalias to window-total-height.
=== modified file 'lisp/calendar/appt.el'
--- a/lisp/calendar/appt.el 2011-05-17 04:05:39 +0000
+++ b/lisp/calendar/appt.el 2011-06-08 06:57:38 +0000
@@ -285,11 +285,11 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104534: * lisp/calendar/appt.el (appt-check): Move some initializations into the let.,
Glenn Morris <=