>From 0da2c2a482b71a119326490d22184e933c19629e Mon Sep 17 00:00:00 2001 From: Ivan Kanis Date: Thu, 24 Mar 2011 18:42:52 +0100 Subject: [PATCH 03/13] plop now and cur-comp-time in the let statement --- appt.el | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/appt.el b/appt.el index 8a2919e..3f8493b 100644 --- a/appt.el +++ b/appt.el @@ -310,11 +310,11 @@ displayed in a window: (interactive "P") ; so people can force updates (let* ((min-to-app -1) (prev-appt-mode-string appt-mode-string) - now cur-comp-time appt-comp-time appt-warn-time) + ;; Convert current time to minutes after midnight (12.01am = 1). + (now (decode-time)) + (cur-comp-time (+ (* 60 (nth 2 now)) (nth 1 now))) + appt-comp-time appt-warn-time) (save-excursion - ;; Convert current time to minutes after midnight (12.01am = 1). - (setq now (decode-time) - cur-comp-time (+ (* 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 -- 1.7.1