diff options
-rw-r--r-- | lisp/calendar/appt.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 29bcd6de2ce..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)))) |