branch: elpa/evil-goggles
commit 253613ce6660a69630ef5ab3c71b3c5ba67b6e42
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
Fix check of evil-last-paste
---
evil-goggles.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/evil-goggles.el b/evil-goggles.el
index 321382dac5..f006920669 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -262,13 +262,12 @@ COUNT REGISTER YANK-HANDLER are the arguments of the
original function."
ADVICED-FUN is used to lookup the face for the overlay.
The overlay region is derermined by evil's variable `evil-last-paste'"
- (unless evil-goggles--on
- (when evil-last-paste
- (let* ((beg (nth 3 evil-last-paste))
- (end (nth 4 evil-last-paste))
- (is-beg-at-eol (save-excursion (goto-char beg) (eolp)))
- (beg-corrected (if is-beg-at-eol (1+ beg) beg) ))
- (evil-goggles--show beg-corrected end (evil-goggles--face
adviced-fun))))))
+ (unless (or evil-goggles--on (null evil-last-paste))
+ (let* ((beg (nth 3 evil-last-paste))
+ (end (nth 4 evil-last-paste))
+ (is-beg-at-eol (save-excursion (goto-char beg) (eolp)))
+ (beg-corrected (if is-beg-at-eol (1+ beg) beg) ))
+ (evil-goggles--show beg-corrected end (evil-goggles--face
adviced-fun)))))
(provide 'evil-goggles)
