Commit a5464014 authored by Glenn Morris's avatar Glenn Morris
Browse files

* calendar/appt.el (appt-check): Change mode-line message at time of the appt.

parent 4accbca6
...@@ -2,6 +2,7 @@ ...@@ -2,6 +2,7 @@
* calendar/appt.el (appt-make-list): Simplify. * calendar/appt.el (appt-make-list): Simplify.
(appt-time-msg-list): Doc fix. (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> 2011-05-12 Andreas Schwab <schwab@linux-m68k.org>
......
...@@ -342,7 +342,9 @@ displayed in a window: ...@@ -342,7 +342,9 @@ displayed in a window:
(when appt-display-mode-line (when appt-display-mode-line
(setq appt-mode-string (setq appt-mode-string
(concat " " (propertize (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)))) 'face 'mode-line-emphasis))))
;; When an appointment is reached, delete it from the ;; When an appointment is reached, delete it from the
;; list. Reset the count to 0 in case we display another ;; list. Reset the count to 0 in case we display another
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment