simplify winum-install-mode-line

This commit is contained in:
deb0ch 2016-12-09 17:04:15 +01:00
parent 3ef5f3aa42
commit 02073497e0

View file

@ -327,12 +327,10 @@ POSITION: position in the mode-line."
(res))
(dotimes (i (min (or position winum-mode-line-position 1)
(length mode-line)))
(push (car mode-line) res)
(pop mode-line))
(push (pop mode-line) res))
(push '(:eval (winum-get-number-string)) res)
(while mode-line
(push (car mode-line) res)
(pop mode-line))
(push (pop mode-line) res))
(setq-default mode-line-format (nreverse res)))
(force-mode-line-update t))