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

minor code improvement

Browse source
This commit is contained in:
Thomas de Beauchêne 2018-11-07 01:47:11 +01:00
parent a096da2881
commit 8bafa66f80
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
winum.el
View file

@ -426,12 +426,11 @@ POSITION: position in the mode-line."
(defun winum--clear-mode-line () (defun winum--clear-mode-line ()
"Remove the window number of `winum-mode' from the mode-line." "Remove the window number of `winum-mode' from the mode-line."
(let ((mode-line (default-value 'mode-line-format)) (let ((mode-line (default-value 'mode-line-format))
(res)) res)
(while mode-line (while mode-line
(let ((item (car mode-line))) (let ((item (pop mode-line)))
(unless (equal item winum--mode-line-segment) (unless (equal item winum--mode-line-segment)
(push item res))) (push item res))))
(pop mode-line))
(let ((nres (nreverse res))) (let ((nres (nreverse res)))
(setq mode-line-format nres) (setq mode-line-format nres)
(setq-default mode-line-format nres))) (setq-default mode-line-format nres)))