branch: elpa/undo-fu-session
commit 10eec479eafd35e901fa2153c0d0f44b7122a274
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>

    Cleanup: use pcase-dolist
---
 undo-fu-session.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/undo-fu-session.el b/undo-fu-session.el
index 7f1eaeddfa..bc93eb653d 100755
--- a/undo-fu-session.el
+++ b/undo-fu-session.el
@@ -315,18 +315,17 @@ Argument PENDING-LIST an `pending-undo-list' compatible 
list."
       (undo-fu-session--list-from-index-map buffer-list 0 1 
step-from-index-hash)
       (undo-fu-session--list-from-index-map pending-list -1 -1 
step-from-index-hash)
 
-      (dolist (item equiv-table-alist)
-        (pcase-let ((`(,key-num . ,val-num) item))
-          (let
-            (
-              (key (gethash key-num step-from-index-hash))
-              (val
-                (cond
-                  ((eq t val-num)
-                    t)
-                  (t
-                    (gethash val-num step-from-index-hash)))))
-            (puthash key val equiv-table-hash)))))
+      (pcase-dolist (`(,key-num . ,val-num) equiv-table-alist)
+        (let
+          (
+            (key (gethash key-num step-from-index-hash))
+            (val
+              (cond
+                ((eq t val-num)
+                  t)
+                (t
+                  (gethash val-num step-from-index-hash)))))
+          (puthash key val equiv-table-hash))))
     equiv-table-hash))
 
 ;; ---------------------------------------------------------------------------

Reply via email to