modeline: fix inconsistent spacing on right of modeline

This commit is contained in:
Henrik Lissner 2017-01-03 22:51:10 -05:00
parent dbacc26e11
commit a2fa66ea37

View file

@ -444,8 +444,8 @@ lines are selected, or the NxM dimensions of a block selection."
'(list (*buffer-encoding) '(list (*buffer-encoding)
(*vc) (*vc)
(*major-mode) (*major-mode)
" " (*flycheck)
(*flycheck)))) )))
(mid (propertize (mid (propertize
" " 'display `((space :align-to (- (+ right right-fringe right-margin) " " 'display `((space :align-to (- (+ right right-fringe right-margin)
,(+ 1 (string-width (format-mode-line rhs))))))))) ,(+ 1 (string-width (format-mode-line rhs)))))))))