From a54640143dc093c1d3572f344b231da2d4508c8f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 12 May 2011 18:38:31 -0700 Subject: [PATCH] * calendar/appt.el (appt-check): Change mode-line message at time of the appt. --- lisp/ChangeLog | 1 + lisp/calendar/appt.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d8b1bf789..004be53a3b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * calendar/appt.el (appt-make-list): Simplify. (appt-time-msg-list): Doc fix. + (appt-check): Change mode-line message at the time of the appointment. 2011-05-12 Andreas Schwab diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index d961e43cda..25f3ae0e8e 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -342,7 +342,9 @@ displayed in a window: (when appt-display-mode-line (setq appt-mode-string (concat " " (propertize - (format "App't in %s min." min-to-app) + (format "App't %s" + (if (zerop min-to-app) "NOW" + (format "in %s min." min-to-app))) 'face 'mode-line-emphasis)))) ;; When an appointment is reached, delete it from the ;; list. Reset the count to 0 in case we display another -- 2.20.1