[nongnu] elpa/evil-goggles 253613ce66 039/225: Fix check of evil-last-paste

[ELPA Syncer]

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

    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)