Remove unnecessary reverse in multiple key extraction

Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
2025-12-14 15:27:35 +00:00 · 2025-12-14 15:27:35 +00:00 · 85c8c5365b
commit 85c8c5365b
parent 3f7f8cd9b9
1 changed files with 1 additions and 1 deletions
--- a/tp.el
+++ b/tp.el
@ -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)))
              (when (and (listp value) (keywordp (car value)))
                (let ((result nil))
-                  (dolist (k (reverse key))
+                  (dolist (k key)
                    (let ((v (plist-get value k)))
                      (when v
                        (setq result (plist-put result k v)))))