[Emacs-diffs] /srv/bzr/emacs/trunk r104211: * calendar/appt.el (appt-check): Change mode-line message at time of the appt.

[Glenn Morris]

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