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

put mode-line segment into a variable

Browse source
This commit is contained in:
Thomas de Beauchêne 2018-11-07 01:40:30 +01:00
parent d7b7eecf08
commit 6f0c451799
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
winum.el
View file

@ -404,6 +404,8 @@ WINDOW: if specified, the window of which we want to know the number.
(remove-hook 'window-configuration-change-hook 'winum--update) (remove-hook 'window-configuration-change-hook 'winum--update)
(setq winum--frames-table nil)) (setq winum--frames-table nil))
(defvar winum--mode-line-segment '(:eval (winum-get-number-string)))
(defun winum--install-mode-line (&optional position) (defun winum--install-mode-line (&optional position)
"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."
@ -412,8 +414,8 @@ POSITION: position in the mode-line."
(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))
(unless (equal (car mode-line) '(:eval (winum-get-number-string))) (unless (equal (car mode-line) winum--mode-line-segment)
(push '(:eval (winum-get-number-string)) res)) (push winum--mode-line-segment 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)))
@ -425,7 +427,7 @@ POSITION: position in the mode-line."
(res)) (res))
(while mode-line (while mode-line
(let ((item (car mode-line))) (let ((item (car mode-line)))
(unless (equal item '(:eval (winum-get-number-string))) (unless (equal item winum--mode-line-segment)
(push item res))) (push item res)))
(pop mode-line)) (pop mode-line))
(setq-default mode-line-format (nreverse res))) (setq-default mode-line-format (nreverse res)))