martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix space at the start of appt mode line element

Browse Source 
* 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.
This commit is contained in:
Lars Ingebrigtsen
2021-08-19 17:48:14 +02:00
parent cd00fb5e2a
commit 9bf8bb0e3e
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/calendar/appt.el
View File

@@ -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))))