From 9bf8bb0e3e2dc7b62626d877d64adcbd12238be1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 19 Aug 2021 17:48:14 +0200 Subject: Fix space at the start of appt mode line element * lisp/calendar/appt.el (appt-check): Add space at the end (bug#18164) -- all `global-mode-string' elements should have it there to get an even space distribution. --- lisp/calendar/appt.el | 11 ++++++----- 1 file 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)))) -- cgit v1.2.3