From 85c8c5365bdc43a3d425c988339e60f3cab5769b Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Sun, 14 Dec 2025 15:27:35 +0000 Subject: [PATCH] Remove unnecessary reverse in multiple key extraction Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com> --- tp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tp.el b/tp.el index 2aa7871..40aaad6 100644 --- 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)))))