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

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

[nongnu] elpa/evil-goggles f482c9762d 143/225: Remove unnecessary functi


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles f482c9762d 143/225: Remove unnecessary function
Date: Wed, 12 Jan 2022 08:59:03 -0500 (EST)

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

    Remove unnecessary function
---
 evil-goggles.el | 21 ++++++---------------
 1 file changed, 6 insertions(+), 15 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 06d245f65f..71ac69dbaa 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -536,21 +536,12 @@ COUNT REGISTER YANK-HANDLER are the arguments of the 
original function."
   (prog1
       (evil-goggles--funcall-preserve-interactive orig-fun count register 
yank-handler)
     (when (evil-normal-state-p)
-      (evil-goggles--evil-paste-show register yank-handler))))
-
-(defun evil-goggles--evil-paste-show (register yank-handler)
-  "Helper fun to show the goggles overlay on the last pasted text.
-
-The overlay region is derermined by evil's marks [ and ]
-Argument REGISTER is the evil register.
-Argument YANK-HANDLER is the yank hanler."
-  (unless evil-goggles--on
-    (let* ((beg (save-excursion (evil-goto-mark ?\[) (point)))
-           (end (save-excursion (evil-goto-mark ?\]) (point)))
-           (is-beg-at-eol (save-excursion (goto-char beg) (eolp)))
-           (beg-corrected (if is-beg-at-eol (1+ beg) beg))
-           (use-block-hint (evil-goggles--evil-paste-block-p register 
yank-handler)))
-      (evil-goggles--show-hint beg-corrected end 'evil-goggles-paste-face 
evil-goggles-paste-duration use-block-hint))))
+      (let* ((beg (save-excursion (evil-goto-mark ?\[) (point)))
+             (end (save-excursion (evil-goto-mark ?\]) (point)))
+             (is-beg-at-eol (save-excursion (goto-char beg) (eolp)))
+             (beg-corrected (if is-beg-at-eol (1+ beg) beg))
+             (use-block-hint (evil-goggles--evil-paste-block-p register 
yank-handler)))
+        (evil-goggles--show-hint beg-corrected end 'evil-goggles-paste-face 
evil-goggles-paste-duration use-block-hint)))))
 
 (defun evil-goggles--evil-paste-block-p (register yank-handler)
   "Return t if the paste was a vertical block.



reply via email to

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