[nongnu] elpa/idle-highlight-mode 7c43cc3d7a 09/59: [Refactor] Lose some weight.

[ELPA Syncer]

branch: elpa/idle-highlight-mode
commit 7c43cc3d7a6a3eed71cb109db41d1b19cd08d2ba
Author: Cornelius Mika <cornelius.mika@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    [Refactor] Lose some weight.
---
 idle-highlight-mode.el | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/idle-highlight-mode.el b/idle-highlight-mode.el
index 6c505d4b40..e9b4983390 100755
--- a/idle-highlight-mode.el
+++ b/idle-highlight-mode.el
@@ -73,22 +73,20 @@
       (
         (target-symbol (symbol-at-point))
         (target (symbol-name target-symbol)))
-      (if
+      (idle-highlight-unhighlight)
+      (when
         (and
           target-symbol (not (in-string-p))
           (looking-at-p "\\s_\\|\\sw") ;; Symbol characters
           ;; TODO: no need to highlight keywords like if
           (not (equal target "end")))
-        (progn
-          (idle-highlight-unhighlight)
-          (setq idle-highlight-regexp (concat "\\<" (regexp-quote target) 
"\\>"))
-          (highlight-regexp idle-highlight-regexp 'idle-highlight))
-        (idle-highlight-unhighlight)
-        (setq idle-highlight-regexp nil)))))
+        (setq idle-highlight-regexp (concat "\\<" (regexp-quote target) "\\>"))
+        (highlight-regexp idle-highlight-regexp 'idle-highlight)))))
 
 (defsubst idle-highlight-unhighlight ()
-  (if idle-highlight-regexp
-    (unhighlight-regexp idle-highlight-regexp)))
+  (when idle-highlight-regexp
+    (unhighlight-regexp idle-highlight-regexp)
+    (setq idle-highlight-regexp nil)))
 
 ;;;###autoload
 (define-minor-mode idle-highlight-mode