>From 5df9dfd98fce372b89bbb9f77462d93b745cee84 Mon Sep 17 00:00:00 2001 From: Ivan Kanis Date: Thu, 24 Mar 2011 19:05:10 +0100 Subject: [PATCH 07/13] move appt-prev-comp-time to the bottom of appt-check-diary This variable is referenced only in this function so it makes sense to put it there. I have also fixed that function as it was missing a parentheses. --- appt.el | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/appt.el b/appt.el index f6ff5c1..51cc5e1 100644 --- a/appt.el +++ b/appt.el @@ -315,8 +315,7 @@ displayed in a window: appt-comp-time appt-warn-time min-to-app) (save-excursion (appt-check-diary force cur-comp-time) - (setq appt-prev-comp-time cur-comp-time - appt-mode-string nil + (setq appt-mode-string nil appt-display-count nil) ;; If there are entries in the list, and the user wants a ;; message issued, get the first time off of the list and @@ -416,6 +415,7 @@ displayed in a window: ;; diary files. It is not really appt.el's job to ;; clean up this mess... (kill-buffer d-buff2))))))) + (setq appt-prev-comp-time cur-comp-time)) (defun appt-disp-window (min-to-app new-time appt-msg) "Display appointment due in MIN-TO-APP (a string) minutes. -- 1.7.1