diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-19 17:48:14 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-19 17:48:14 +0200 |
commit | 9bf8bb0e3e2dc7b62626d877d64adcbd12238be1 (patch) | |
tree | ca09714bdd796e2f5a2390056996a348a20aa11a | |
parent | cd00fb5e2a813a71969d1370bb05e1c533107045 (diff) | |
download | emacs-9bf8bb0e3e2dc7b62626d877d64adcbd12238be1.tar.gz |
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.
-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)))) |