[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/undo-fu-session 10eec479ea 02/11: Cleanup: use pcase-dolis
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/undo-fu-session 10eec479ea 02/11: Cleanup: use pcase-dolist |
Date: |
Sat, 7 Jan 2023 20:00:28 -0500 (EST) |
branch: elpa/undo-fu-session
commit 10eec479eafd35e901fa2153c0d0f44b7122a274
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@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))
;; ---------------------------------------------------------------------------
- [nongnu] elpa/undo-fu-session updated (52c71b1cee -> e6cf0dca6a), ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session ab3d777bd1 05/11: readme: add "Vundo" to "Other Packages" section, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session b00ebd244e 06/11: Correct typo., ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session 1a28e9d9e2 04/11: Add Makefile to run tests, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session 3a406afabf 08/11: readme: simplify adding the hook in the readme, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session 10eec479ea 02/11: Cleanup: use pcase-dolist,
ELPA Syncer <=
- [nongnu] elpa/undo-fu-session d08f7bf130 07/11: Cleanup: require pcase for pcase-dolist, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session 386e22322c 03/11: Cleanup: doc-string warnings, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session 6c85e27da3 10/11: Cleanup: remove lambda function quote, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session be24059891 01/11: Release v0.3, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session f9d821cb80 09/11: Cleanup: emacs native format, ELPA Syncer, 2023/01/07
- [nongnu] elpa/undo-fu-session e6cf0dca6a 11/11: Rename global-undo-fu-session-mode to undo-fu-session-global-mode, ELPA Syncer, 2023/01/07