[nongnu] elpa/helm fb4ac27148 4/4: Simplify last loop in helm-highlight-current-line

[ELPA Syncer]

branch: elpa/helm
commit fb4ac27148924be271b2619c2e00437dde4b46ab
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Simplify last loop in helm-highlight-current-line
---
 helm-utils.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/helm-utils.el b/helm-utils.el
index 9f7b1f164b..a745e2ef83 100644
--- a/helm-utils.el
+++ b/helm-utils.el
@@ -920,10 +920,9 @@ Optional arguments START, END and FACE are only here for 
debugging purpose."
                            (or (not helm-highlight-only-all-matches)
                                (eql (length all-matches) num-regex)))
                   (cl-loop for ml in all-matches
-                           do (cl-loop for match in ml
-                                       do (let* ((s (car match))
-                                                 (e (cdr match))
-                                                 (ov (make-overlay s e)))
+                           do (cl-loop for (s . e) in ml
+                                       for ov = (make-overlay s e)
+                                       do (progn
                                             (push ov helm--match-item-overlays)
                                             (overlay-put ov 'face 
'helm-match-item)
                                             (overlay-put ov 'priority 1))))))