[nongnu] elpa/evil-goggles 805e20dcde 022/225: Don't show overlay when :global or :vglobal is executed

[ELPA Syncer]

branch: elpa/evil-goggles
commit 805e20dcded457d279fd4cfa1de20932a276ca18
Author: Evgeni Kolev <evgenysw@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    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