mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(appt-mode-string): Mark as risky.

Browse Source 
(appt-check): Apply mode-line-emphasis face to appt-mode-string.
This commit is contained in:
Glenn Morris 2008-03-13 03:48:35 +00:00
parent a3d3fe6e00
commit 464e82586e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/calendar/appt.el
View File

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