[nongnu] elpa/evil-goggles 9d20051b25 009/225: Add evil-surround

[ELPA Syncer]

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

    Add evil-surround
---
 evil-goggles.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/evil-goggles.el b/evil-goggles.el
index a7c248f18a..a6f595325c 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -92,6 +92,11 @@
         (evil-goggles--generic-advice beg end orig-fun args 
(evil-goggles--face 'evil-join))
       (apply orig-fun args))))
 
+(defun evil-goggles--evil-surround-region (orig-fun &rest args)
+  (let ((beg (nth 0 args))
+        (end (nth 1 args)))
+    (evil-goggles--generic-advice beg end orig-fun args (evil-goggles--face 
'evil-surround))))
+
 (define-minor-mode evil-goggles-mode
   "evil-goggles global minor mode."
   :lighter " (⌐■-■)"
@@ -131,6 +136,7 @@
 (evil-goggles--advice-add 'evil-yank            
'evil-goggles--evil-yank-advice)
 (evil-goggles--advice-add 'evil-join            
'evil-goggles--evil-join-advice)
 (evil-goggles--advice-add 'evil-join-whitespace 
'evil-goggles--evil-join-advice)
+(evil-goggles--advice-add 'evil-surround-region 
'evil-goggles--evil-surround-region)
 
 (provide 'evil-goggles)