branch: elpa/evil-goggles
commit e26b505a923317854e85cbb7b9026e2807b99237
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
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))
