set minimum mode-line position to 1

This commit is contained in:
deb0ch 2016-12-08 19:52:54 +01:00
parent c37f70c209
commit 7bf64bf3e4

View file

@ -250,7 +250,7 @@ Returns the assigned number, or nil on error."
POSITION: position in the mode-line." POSITION: position in the mode-line."
(let ((mode-line (default-value 'mode-line-format)) (let ((mode-line (default-value 'mode-line-format))
(res)) (res))
(dotimes (i (min (or position window-numbering-mode-line-position) (dotimes (i (min (or position window-numbering-mode-line-position 1)
(length mode-line))) (length mode-line)))
(push (car mode-line) res) (push (car mode-line) res)
(pop mode-line)) (pop mode-line))