geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

Remove unnecessary reverse in multiple key extraction

Browse Source 
Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-14 15:27:35 +00:00
parent 3f7f8cd9b9
commit 85c8c5365b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tp.el
View File

@ -413,7 +413,7 @@ Example: (tp--get-nested \\='(:a 1 :b 2 :c 3) \\='((:a :b))) => (:a 1 :b 2)"
((and (listp key) (not (null key))) ((and (listp key) (not (null key)))
(when (and (listp value) (keywordp (car value))) (when (and (listp value) (keywordp (car value)))
(let ((result nil)) (let ((result nil))
(dolist (k (reverse key)) (dolist (k key)
(let ((v (plist-get value k))) (let ((v (plist-get value k)))
(when v (when v
(setq result (plist-put result k v))))) (setq result (plist-put result k v)))))