emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/idle-highlight-mode c7af42119a 38/59: Cleanup: remove unne


From: ELPA Syncer
Subject: [nongnu] elpa/idle-highlight-mode c7af42119a 38/59: Cleanup: remove unnecessary variable
Date: Thu, 7 Jul 2022 12:00:31 -0400 (EDT)

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

    Cleanup: remove unnecessary variable
---
 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 1c8401f2ca..64b693f6b0 100755
--- a/idle-highlight-mode.el
+++ b/idle-highlight-mode.el
@@ -169,7 +169,6 @@ Argument POS return faces at this point."
       (save-excursion
         (let
           (
-            (range-list nil)
             (beg-ex
               (progn
                 (goto-char (max (point-min) (min beg (window-start))))
@@ -181,14 +180,13 @@ Argument POS return faces at this point."
                 (beginning-of-line)
                 (end-of-line)
                 (point))))
-
-          (cond
-            (idle-highlight-exclude-point
-              (setq range-list (list (cons beg-ex beg) (cons end end-ex))))
-            (t
-              (setq range-list (cons beg-ex end-ex))))
-
-          (dolist (range range-list)
+          (dolist
+            (range
+              (cond
+                (idle-highlight-exclude-point
+                  (list (cons beg-ex beg) (cons end end-ex)))
+                (t
+                  (list (cons beg-ex end-ex)))))
             (goto-char (car range))
             (while (re-search-forward idle-highlight--regexp (cdr range) t)
               (let ((ov (make-overlay (match-beginning 0) (match-end 0))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]