[nongnu] elpa/evil-goggles 3dc8417950 040/225: Add evil-fill-and-move "="

[ELPA Syncer]

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

    Add evil-fill-and-move "="
---
 evil-goggles.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index f006920669..379d2b6cd3 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -136,12 +136,13 @@ displayed while its running."
     (evil-goggles--advice-add 'evil-join-whitespace       
'evil-goggles--evil-join-advice)
     (evil-goggles--advice-add 'evil-paste-after           
'evil-goggles--evil-paste-after-advice)
     (evil-goggles--advice-add 'evil-paste-before          
'evil-goggles--evil-paste-before-advice)
+    (evil-goggles--advice-add 'evil-ex-global             
'evil-goggles--evil-ex-global-advice)
+    (evil-goggles--advice-add 'evil-fill-and-move         
'evil-goggles--evil-fill-and-move-advice)
 
     ;; evil non-core packages
     (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))
+    (evil-goggles--advice-add 'evil-replace-with-register 
'evil-goggles--evil-replace-with-register-advice))
    (t
     (advice-remove 'evil-delete                
'evil-goggles--evil-delete-advice)
     (advice-remove 'evil-indent                
'evil-goggles--evil-indent-advice)
@@ -150,10 +151,12 @@ displayed while its running."
     (advice-remove 'evil-join-whitespace       'evil-goggles--evil-join-advice)
     (advice-remove 'evil-paste-after           
'evil-goggles--evil-paste-after-advice)
     (advice-remove 'evil-paste-before          
'evil-goggles--evil-paste-before-advice)
+    (advice-remove 'evil-ex-global             
'evil-goggles--evil-ex-global-advice)
+    (advice-remove 'evil-fill-and-move         
'evil-goggles--evil-fill-and-move-advice)
+
     (advice-remove 'evil-surround-region       
'evil-goggles--evil-surround-region-advice)
     (advice-remove 'evil-commentary            
'evil-goggles--evil-commentary-advice)
-    (advice-remove 'evil-replace-with-register 
'evil-goggles--evil-replace-with-register-advice)
-    (advice-remove 'evil-ex-global             
'evil-goggles--evil-ex-global-advice))))
+    (advice-remove 'evil-replace-with-register 
'evil-goggles--evil-replace-with-register-advice))))
 
 (defun evil-goggles--advice-add (adviced-fun advice)
   "Add advice around ADVICED-FUN with ADVICE.
@@ -269,6 +272,15 @@ The overlay region is derermined by evil's variable 
`evil-last-paste'"
            (beg-corrected (if is-beg-at-eol (1+ beg) beg) ))
       (evil-goggles--show beg-corrected end (evil-goggles--face 
adviced-fun)))))
 
+(defun evil-goggles--evil-fill-and-move-advice (orig-fun beg end)
+  "Around-advice for function `evil-fill-and-move'.
+
+ORIG-FUN is the original function.
+BEG END arguments of the original function."
+  (evil-goggles--with-goggles beg end 'evil-fill-and-move
+    (evil-goggles--funcall-preserve-interactive orig-fun beg end)))
+
+
 (provide 'evil-goggles)
 
 ;;; evil-goggles.el ends here