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)) ;; ---------------------------------------------------------------------------