[Emacs-diffs] Changes to emacs/lisp/calendar/appt.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/13 03:48:35

Index: appt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/appt.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- appt.el     8 Mar 2008 21:21:37 -0000       1.82
+++ appt.el     13 Mar 2008 03:48:35 -0000      1.83
@@ -203,6 +203,7 @@
   "String being displayed in the mode line saying you have an appointment.
 The actual string includes the amount of time till the appointment.
 Only used if `appt-display-mode-line' is non-nil.")
+(put 'appt-mode-string 'risky-local-variable t) ; for 'face property
 
 (defvar appt-prev-comp-time nil
   "Time of day (mins since midnight) at which we last checked appointments.
@@ -390,7 +391,9 @@
                                           min-to-app))
                  (when appt-display-mode-line
                    (setq appt-mode-string
-                          (format " App't in %s min." min-to-app)))
+                          (concat " " (propertize
+                                       (format "App't 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 appointment on the next cycle.