simplify winum-install-mode-line
This commit is contained in:
parent
3ef5f3aa42
commit
02073497e0
6
winum.el
6
winum.el
|
@ -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))
|
||||
|
||||
|
|
Loading…
Reference in a new issue