branch: elpa/evil-goggles
commit 805e20dcded457d279fd4cfa1de20932a276ca18
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
Don't show overlay when :global or :vglobal is executed
---
evil-goggles.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/evil-goggles.el b/evil-goggles.el
index 1f4b14d1d8..18ed98bca6 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -144,6 +144,7 @@
(evil-goggles--advice-add 'evil-surround-region
'evil-goggles--evil-surround-region-advice)
(evil-goggles--advice-add 'evil-commentary
'evil-goggles--evil-commentary-advice)
(evil-goggles--advice-add 'evil-replace-with-register
'evil-goggles--evil-replace-with-register-advice)
+(evil-goggles--advice-add 'evil-ex-global
'evil-goggles--evil-ex-global-advice)
(defun evil-goggles--evil-delete-advice (orig-fun beg end &optional type
register yank-handler)
(evil-goggles--with-goggles beg end 'evil-delete
@@ -178,6 +179,10 @@
(evil-goggles--with-goggles beg end 'evil-replace-with-register
(evil-goggles--funcall-preserve-interactive orig-fun count beg end type
register)))
+(defun evil-goggles--evil-ex-global-advice (orig-fun beg end pattern command
&optional invert)
+ (let* ((evil-goggles--on t)) ;; set to `t' to prevent showing the overlay
+ (evil-goggles--funcall-preserve-interactive orig-fun beg end pattern
command invert)))
+
(provide 'evil-goggles)
;; evil-goggles.el end here
