From: Glenn Morris <rgm@gnu.org>
Date: Thu, 13 Mar 2008 03:48:35 +0000 (+0000)
Subject: (appt-mode-string): Mark as risky.
X-Git-Tag: emacs-pretest-23.0.90~7222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=464e82586ed476a92cec0dc3e5af8420073a033b;p=emacs.git

(appt-mode-string): Mark as risky.
(appt-check): Apply mode-line-emphasis face to appt-mode-string.
---

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index d081dd2e541..ece9976e411 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -203,6 +203,7 @@ so calling `appt-make-list' again should preserve it.")
   "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 @@ displayed in a window:
                                           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.