From: Glenn Morris Date: Fri, 13 May 2011 01:38:31 +0000 (-0700) Subject: * calendar/appt.el (appt-check): Change mode-line message at time of the appt. X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~289 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a54640143dc093c1d3572f344b231da2d4508c8f;p=emacs.git * calendar/appt.el (appt-check): Change mode-line message at time of the appt. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8d8b1bf7899..004be53a3b2 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 d961e43cda2..25f3ae0e8ec 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