diff options
author | Glenn Morris <rgm@gnu.org> | 2008-03-13 03:48:35 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2008-03-13 03:48:35 +0000 |
commit | 23bfd7832a2e93541db0d0ee5790c9d46ba52b8e (patch) | |
tree | 61a2171f4d66b107ef48e2c804b089c17ba125c8 /lisp/calendar/appt.el | |
parent | 3bb8f884d92daa0ae56b7b15bf790653879f5f78 (diff) | |
download | emacs-23bfd7832a2e93541db0d0ee5790c9d46ba52b8e.tar.gz |
(appt-mode-string): Mark as risky.
(appt-check): Apply mode-line-emphasis face to appt-mode-string.
Diffstat (limited to 'lisp/calendar/appt.el')
-rw-r--r-- | lisp/calendar/appt.el | 5 |
1 files changed, 4 insertions, 1 deletions
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. |