mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2011-05-12 18:38:31 -07:00
parent 4accbca6e9
commit a54640143d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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>

4
lisp/calendar/appt.el
View File

@ -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