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

Don't push winum to mode-line if it's already there

Browse source 
Fixes #17
This commit is contained in:
Tomasz Mieszkowski 2018-11-04 19:49:34 +01:00
parent c56d1cdb8d
commit d7b7eecf08
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
winum.el
View file

@ -408,11 +408,12 @@ WINDOW: if specified, the window of which we want to know the number.
"Install the window number from `winum-mode' to the mode-line. "Install the window number from `winum-mode' to the mode-line.
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 winum-mode-line-position 1) (dotimes (i (min (or position winum-mode-line-position 1)
(length mode-line))) (length mode-line)))
(push (pop mode-line) res)) (push (pop mode-line) res))
(push '(:eval (winum-get-number-string)) res) (unless (equal (car mode-line) '(:eval (winum-get-number-string)))
(push '(:eval (winum-get-number-string)) res))
(while mode-line (while mode-line
(push (pop mode-line) res)) (push (pop mode-line) res))
(setq-default mode-line-format (nreverse res))) (setq-default mode-line-format (nreverse res)))