[nongnu] elpa/evil-goggles 2b7331aa62 082/225: Make checkdoc happy

[ELPA Syncer]

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

    Make checkdoc happy
---
 evil-goggles.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index fa241b96a1..a4a930b9e7 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -249,8 +249,9 @@ COUNT REGISTER YANK-HANDLER are the arguments of the 
original function."
 (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 variable `evil-last-paste'"
-  (message "evil-goggles--evil-paste-block-p: %s" 
(evil-goggles--evil-paste-block-p register yank-handler))
+The overlay region is derermined by evil's marks [ and ]
+Argument REGISTER is the evil register.
+Argument YANK-HANDLER is the yank hanler."
   (unless (or evil-goggles--on (evil-goggles--evil-paste-block-p register 
yank-handler))
     ;; TODO show the goggles overlay when the pasted text is a block
     (let* ((beg (save-excursion (evil-goto-mark ?\[) (point)))
@@ -260,6 +261,10 @@ The overlay region is derermined by evil's variable 
`evil-last-paste'"
       (evil-goggles--show beg-corrected end 'evil-goggles-paste-face))))
 
 (defun evil-goggles--evil-paste-block-p (register yank-handler)
+  "Return t if the paste was a vertical block.
+
+Argument REGISTER is the evil register.
+Argument YANK-HANDLER is the yank hanler."
   (let* ((text (if register
                    (evil-get-register register)
                  (current-kill 0)))