diff options
Diffstat (limited to 'lisp/calendar/appt.el')
| -rw-r--r-- | lisp/calendar/appt.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index d8ed2470abe..7572e706283 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -165,6 +165,12 @@ Only relevant if reminders are being displayed in a window." :type 'function :group 'appt) +(defface appt-notification + '((t :inherit mode-line-emphasis)) + "Face for appointment notification on the modeline. +Shown when `appt-display-mode-line' is non-nil." + :group 'mode-line-faces + :version "30.1") ;;; Internal variables below this point. @@ -406,10 +412,10 @@ displayed in a window: (appt-mode-line (mapcar #'number-to-string min-list) t) - 'face 'mode-line-emphasis) + 'face 'appt-notification) " "))) ;; Reset count to 0 in case we display another appt on the next cycle. - (setq appt-display-count (if (eq '(0) min-list) 0 + (setq appt-display-count (if (equal '(0) min-list) 0 (1+ prev-appt-display-count)))) ;; If we have changed the mode line string, redisplay all mode lines. (and appt-display-mode-line @@ -453,8 +459,7 @@ separate appointment." ;; It repeatedly reminds you of the date? ;; It would make more sense if it was eg the time of the appointment. ;; Let's allow it to be a list or not independent of the other elements. - (or (listp new-time) - (setq new-time (list new-time))) + (setq new-time (ensure-list new-time)) ;; FIXME Link to diary entry? (calendar-set-mode-line (format " %s. %s" (appt-mode-line min-to-app) @@ -707,7 +712,7 @@ ARG is positive, otherwise off." (not appt-active))) (remove-hook 'write-file-functions #'appt-update-list) (or global-mode-string (setq global-mode-string '(""))) - (delq 'appt-mode-string global-mode-string) + (setq global-mode-string (delq 'appt-mode-string global-mode-string)) (when appt-timer (cancel-timer appt-timer) (setq appt-timer nil)) |