[nongnu] elpa/evil-goggles e26b505a92 010/225: Don't break evil-inhibit-operator in evil-delete advice

[ELPA Syncer]

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

    Don't break evil-inhibit-operator in evil-delete advice
---
 evil-goggles.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index a6f595325c..37c4051012 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -67,10 +67,12 @@
         (apply orig-fun args))
     (apply orig-fun args)))
 
-(defun evil-goggles--evil-delete-advice (orig-fun &rest args)
-  (let ((beg (nth 0 args))
-        (end (nth 1 args)))
-    (evil-goggles--generic-advice beg end orig-fun args 'region)))
+(defun evil-goggles--evil-delete-advice (orig-fun beg end &optional type 
register yank-handler)
+  (if (evil-goggles--show-p beg end)
+      (let* ((evil-goggles--on t))
+        (evil-goggles--show beg end (evil-goggles--face 'evil-delete))
+        (funcall-interactively orig-fun beg end type register yank-handler))
+    (funcall-interactively orig-fun beg end type register yank-handler)))
 
 (defun evil-goggles--evil-indent-advice (orig-fun &rest args)
   (let ((beg (nth 0 args))