Mercurial > emacs
changeset 92816:0a27edb53589
(appt-mode-string): Mark as risky.
(appt-check): Apply mode-line-emphasis face to appt-mode-string.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 13 Mar 2008 03:48:35 +0000 |
| parents | 8f33820cee18 |
| children | 1b8224570e5f |
| files | lisp/calendar/appt.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/appt.el Thu Mar 13 03:33:31 2008 +0000 +++ b/lisp/calendar/appt.el Thu Mar 13 03:48:35 2008 +0000 @@ -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.