emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-goggles fa7dca4f82 016/225: Cleanup delete advice


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles fa7dca4f82 016/225: Cleanup delete advice
Date: Wed, 12 Jan 2022 08:58:39 -0500 (EST)

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

    Cleanup delete advice
---
 evil-goggles.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 52062907b2..b9b64ccc1e 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -87,11 +87,8 @@
     (apply orig-fun args)))
 
 (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)))
+  (evil-goggles--with-goggles beg end 'evil-delete
+    (evil-goggles--funcall-preserve-interactive orig-fun beg end type register 
yank-handler)))
 
 (defun evil-goggles--evil-indent-advice (orig-fun beg end)
   (evil-goggles--with-goggles beg end 'evil-indent



reply via email to

[Prev in Thread] Current Thread [Next in Thread]