[nongnu] elpa/idle-highlight-mode 2bc509cc28 20/59: Cleanup: byte code compiler warnings

[ELPA Syncer]

branch: elpa/idle-highlight-mode
commit 2bc509cc2893093040e7591e4eb13397ad22fbf0
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: byte code compiler warnings
    
    - Variable used before declared.
    - Function used before declared.
---
 idle-highlight-mode.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/idle-highlight-mode.el b/idle-highlight-mode.el
index 98d633753c..16ba4b2d13 100755
--- a/idle-highlight-mode.el
+++ b/idle-highlight-mode.el
@@ -82,9 +82,15 @@
   ;; In a string.
   (nth 3 (syntax-ppss)))
 
+(defsubst idle-highlight--unhighlight ()
+  "Clear current highlight."
+  (when idle-highlight--regexp
+    (unhighlight-regexp idle-highlight--regexp)
+    (setq idle-highlight--regexp nil)))
+
 (defun idle-highlight--word-at-point ()
   "Highlight the word under the point."
-  (when idle-highlight-mode
+  (when (bound-and-true-p idle-highlight-mode)
     (idle-highlight--unhighlight)
     (let ((target-symbol (symbol-at-point)))
       (when
@@ -97,12 +103,6 @@
             (setq idle-highlight--regexp (concat "\\<" (regexp-quote target) 
"\\>"))
             (highlight-regexp idle-highlight--regexp 'idle-highlight)))))))
 
-(defsubst idle-highlight--unhighlight ()
-  "Clear current highlight."
-  (when idle-highlight--regexp
-    (unhighlight-regexp idle-highlight--regexp)
-    (setq idle-highlight--regexp nil)))
-
 ;;;###autoload
 (define-minor-mode idle-highlight-mode
   "Idle-Highlight Minor Mode."