[nongnu] elpa/hl-block-mode 685da3e461 3/7: Cleanup: use `pcase-dolist`

[ELPA Syncer]

branch: elpa/hl-block-mode
commit 685da3e461457ec97d78414cc76e142de2dba28e
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use `pcase-dolist`
---
 hl-block-mode.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index cbf186706b..e14db0b2f7 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -213,15 +213,14 @@ typically `(point)'."
   "Update the overlays based on the cursor location.
 Argument BLOCK-LIST represents start-end ranges of braces."
   ;; hl-block-bracket-face
-  (while block-list
-    (pcase-let ((`(,beg . ,end) (pop block-list)))
-      (let ((elem-overlay-beg (make-overlay beg (1+ beg))))
-        (overlay-put elem-overlay-beg 'face hl-block-bracket-face)
-        (push elem-overlay-beg hl-block--overlay)
-        (when end ;; May be `nil' for un-matched brackets.
-          (let ((elem-overlay-end (make-overlay (1- end) end)))
-            (overlay-put elem-overlay-end 'face hl-block-bracket-face)
-            (push elem-overlay-end hl-block--overlay)))))))
+  (pcase-dolist (`(,beg . ,end) block-list)
+    (let ((elem-overlay-beg (make-overlay beg (1+ beg))))
+      (overlay-put elem-overlay-beg 'face hl-block-bracket-face)
+      (push elem-overlay-beg hl-block--overlay)
+      (when end ;; May be `nil' for un-matched brackets.
+        (let ((elem-overlay-end (make-overlay (1- end) end)))
+          (overlay-put elem-overlay-end 'face hl-block-bracket-face)
+          (push elem-overlay-end hl-block--overlay))))))
 
 
 ;; ---------------------------------------------------------------------------