diff options
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/calendar/appt.el | 4 |
2 files changed, 4 insertions, 1 deletions
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 <schwab@linux-m68k.org> 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 |