[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104211: * calendar/appt.el (appt-che
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104211: * calendar/appt.el (appt-check): Change mode-line message at time of the appt. |
Date: |
Thu, 12 May 2011 18:38:31 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104211
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2011-05-12 18:38:31 -0700
message:
* calendar/appt.el (appt-check): Change mode-line message at time of the appt.
modified:
lisp/ChangeLog
lisp/calendar/appt.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-05-13 01:35:11 +0000
+++ b/lisp/ChangeLog 2011-05-13 01:38:31 +0000
@@ -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 <address@hidden>
=== modified file 'lisp/calendar/appt.el'
--- a/lisp/calendar/appt.el 2011-05-13 01:35:11 +0000
+++ b/lisp/calendar/appt.el 2011-05-13 01:38:31 +0000
@@ -342,7 +342,9 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104211: * calendar/appt.el (appt-check): Change mode-line message at time of the appt.,
Glenn Morris <=