toki/emacs-winum
1
0
Fork 0
Code Issues Pull requests Activity

simplify winum-install-mode-line

Browse source
This commit is contained in:
deb0ch 2016-12-09 17:04:15 +01:00
parent 3ef5f3aa42
commit 02073497e0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
winum.el
View file

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