From b31eef9336ae416c45b4141a35371ca88a465aac Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 9 Jan 2025 14:33:25 -0500 Subject: [PATCH] revert: fix(lib): doom-copy: copy first level of records Shallow should mean shallow. Revert: 82cfe98ccc0c --- lisp/doom-lib.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/doom-lib.el b/lisp/doom-lib.el index 288b599bd..ab4788829 100644 --- a/lisp/doom-lib.el +++ b/lisp/doom-lib.el @@ -331,10 +331,12 @@ TRIGGER-HOOK is a list of quoted hooks and/or sharp-quoted functions." (cl-defgeneric doom-copy (val &optional deep?) "Return a (optionally deep) copy of VAL." (if (recordp val) ; `record' specializer not supported until Emacs 30 - (cl-loop with newval = (copy-sequence val) - for idx from 1 to (length (cdr (cl-struct-slot-info (type-of val)))) - do (aset newval idx (doom-copy (aref newval idx) deep?)) - finally return newval) + (if deep? + (cl-loop with newval = (copy-sequence val) + for idx from 1 to (length (cdr (cl-struct-slot-info (type-of val)))) + do (aset newval idx (doom-copy (aref newval idx) t)) + finally return newval) + (copy-sequence val)) (cl-check-type val (or integer float boolean symbol null)) val))