github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix #128 and silence the warnings.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-01 16:33:02 +07:00
parent c901459d9d
commit 6942926612
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
doom-modeline-segments.el
View file

@ -39,10 +39,10 @@
;; Externals ;; Externals
;; ;;
(defvar anzu--cached-count)
(defvar anzu--current-position) (defvar anzu--current-position)
(defvar anzu--overflow-p) (defvar anzu--overflow-p)
(defvar anzu--state) (defvar anzu--state)
(defvar anzu--total-matched)
(defvar anzu-cons-mode-line-p) (defvar anzu-cons-mode-line-p)
(defvar aw-keys) (defvar aw-keys)
(defvar battery-echo-area-format) (defvar battery-echo-area-format)
@ -941,8 +941,9 @@ lines are selected, or the NxM dimensions of a block selection."
(advice-add #'evil-force-normal-state :after #'anzu--reset-status) (advice-add #'evil-force-normal-state :after #'anzu--reset-status)
;; Fix matches segment mirroring across all buffers ;; Fix matches segment mirroring across all buffers
(mapc #'make-variable-buffer-local (mapc #'make-variable-buffer-local
'(anzu--total-matched anzu--current-position anzu--state '(anzu--current-position
anzu--cached-count anzu--cached-positions anzu--last-command anzu--state anzu--cached-count
anzu--cached-positions anzu--last-command
anzu--last-isearch-string anzu--overflow-p))) anzu--last-isearch-string anzu--overflow-p)))
(defsubst doom-modeline--anzu () (defsubst doom-modeline--anzu ()
@ -953,9 +954,9 @@ Requires `anzu', also `evil-anzu' if using `evil-mode' for compatibility with
(not (bound-and-true-p iedit-mode))) (not (bound-and-true-p iedit-mode)))
(propertize (propertize
(let ((here anzu--current-position) (let ((here anzu--current-position)
(total anzu--total-matched)) (total anzu--cached-count))
(cond ((eq anzu--state 'replace-query) (cond ((eq anzu--state 'replace-query)
(format " %d replace " anzu--cached-count)) (format " %d replace " total))
((eq anzu--state 'replace) ((eq anzu--state 'replace)
(format " %d/%d " here total)) (format " %d/%d " here total))
(anzu--overflow-p (anzu--overflow-p