awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

revert: fix(lib): doom-copy: copy first level of records

Browse Source 
Shallow should mean shallow.

Revert: 82cfe98ccc
This commit is contained in:
Henrik Lissner
2025-01-09 14:33:25 -05:00
parent 9b4f7ead88
commit b31eef9336
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/doom-lib.el
View File

@ -331,10 +331,12 @@ TRIGGER-HOOK is a list of quoted hooks and/or sharp-quoted functions."
(cl-defgeneric doom-copy (val &optional deep?) (cl-defgeneric doom-copy (val &optional deep?)
"Return a (optionally deep) copy of VAL." "Return a (optionally deep) copy of VAL."
(if (recordp val) ; `record' specializer not supported until Emacs 30 (if (recordp val) ; `record' specializer not supported until Emacs 30
(cl-loop with newval = (copy-sequence val) (if deep?
for idx from 1 to (length (cdr (cl-struct-slot-info (type-of val)))) (cl-loop with newval = (copy-sequence val)
do (aset newval idx (doom-copy (aref newval idx) deep?)) for idx from 1 to (length (cdr (cl-struct-slot-info (type-of val))))
finally return newval) 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)) (cl-check-type val (or integer float boolean symbol null))
val)) val))