branch: elpa/evil-goggles
commit b611a140a24e4f6e1816d8ada4d801c04715e777
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
Highlight the whole line when pasting a whole line, not just the text
---
evil-goggles.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/evil-goggles.el b/evil-goggles.el
index 553b67fe1b..9f3007cb31 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -541,12 +541,10 @@ 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)
- (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))
+ (let* ((beg (save-excursion (evil-goto-mark ?\[) (if (eolp) (1+ (point))
(point))))
+ (end (save-excursion (evil-goto-mark ?\]) (if (eolp) (1+ (point))
(point))))
(use-block-hint (evil-goggles--evil-paste-block-p register
yank-handler)))
- (evil-goggles--show-hint beg-corrected end 'evil-goggles-paste-face
use-block-hint)))))
+ (evil-goggles--show-hint beg end 'evil-goggles-paste-face
use-block-hint)))))
(defun evil-goggles--evil-paste-block-p (register yank-handler)
"Return t if the paste was a vertical block.
