diff options
Diffstat (limited to 'lisp/calendar/appt.el')
| -rw-r--r-- | lisp/calendar/appt.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 281b89e088f..f523863440f 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -402,11 +402,12 @@ displayed in a window: (appt-display-message string-list min-list)) (when appt-display-mode-line (setq appt-mode-string - (concat " " (propertize - (appt-mode-line (mapcar #'number-to-string - min-list) - t) - 'face 'mode-line-emphasis)))) + (concat (propertize + (appt-mode-line (mapcar #'number-to-string + min-list) + t) + 'face 'mode-line-emphasis) + " "))) ;; Reset count to 0 in case we display another appt on the next cycle. (setq appt-display-count (if (eq '(0) min-list) 0 (1+ prev-appt-display-count)))) @@ -700,7 +701,7 @@ ARG is positive, otherwise off." (let ((appt-active appt-timer)) (setq appt-active (if arg (> (prefix-numeric-value arg) 0) (not appt-active))) - (remove-hook 'write-file-functions #'appt-update-list 'local) + (remove-hook 'write-file-functions #'appt-update-list) (or global-mode-string (setq global-mode-string '(""))) (delq 'appt-mode-string global-mode-string) (when appt-timer @@ -708,7 +709,7 @@ ARG is positive, otherwise off." (setq appt-timer nil)) (if appt-active (progn - (add-hook 'write-file-functions #'appt-update-list nil t) + (add-hook 'write-file-functions #'appt-update-list) (setq appt-timer (run-at-time t 60 #'appt-check) global-mode-string (append global-mode-string '(appt-mode-string))) |