[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.
- [nongnu] elpa/evil-goggles 04b93b8564 157/225: Use alternative pulse duration calculation, (continued)
- [nongnu] elpa/evil-goggles 04b93b8564 157/225: Use alternative pulse duration calculation, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 79a25e4da1 163/225: make compile: use dolist instead of mapc, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 79a2f620bf 190/225: Implement yank, delete, indent & change with a :before advice, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 057378b54f 203/225: Add paste hint, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 0a96a8fb43 212/225: Show paste hint after `C-n' and `C-p', ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles ea5ab4012a 217/225: Fix parentheses nesting, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 61d3c1e3d9 222/225: Switch to makel.mk, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 08a22058fd 223/225: Remove evil-tests.el workaround, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 82c14bc058 136/225: Don't block when surrounding, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 7f417d8eff 140/225: Improve docs, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles f482c9762d 143/225: Remove unnecessary function,
ELPA Syncer <=
- [nongnu] elpa/evil-goggles 87949d4c7e 147/225: Update README, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 4645be7ac2 150/225: Fix block hint using only the bg of the face, ignoring the fg, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 691bd2ef28 148/225: Make comments compatible with outline, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 546fdafd8f 144/225: Add comment for internal APIs, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles be3acc9142 152/225: Merge branch 'per-action-duration', ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 787b8dcabd 159/225: Fix macro indentation, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 52e77e9a3a 146/225: Simplify customization: remove duration options for each advised command, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 9a1ddbda3e 164/225: Add helper function on inherit from diff-refine-* faces, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles b611a140a2 162/225: Highlight the whole line when pasting a whole line, not just the text, ELPA Syncer, 2022/01/12
- [nongnu] elpa/evil-goggles 690dd7aba3 165/225: Pulse only if the face defines a background, ELPA Syncer, 2022/01/12