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

fix(lib): 'unknown specializer record' error on Emacs <30

Browse Source 
Seems the 'record' specializer wasn't introduced until Emacs 30, so
users on earlier versions will see this error on startup.

Fix: #8186
This commit is contained in:
Henrik Lissner
2024-12-01 15:48:52 -05:00
parent 8072d62b4f
commit ec645b8381
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/doom-lib.el
View File

@ -331,19 +331,17 @@ TRIGGER-HOOK is a list of quoted hooks and/or sharp-quoted functions."
;;
;;; Deep copying
(cl-defgeneric doom-copy (val &optional _deep?)
(cl-defgeneric doom-copy (val &optional deep?)
"Return a (optionally deep) copy of VAL."
(cl-check-type val (or integer float boolean symbol null))
val)
(cl-defmethod doom-copy ((val record) &optional deep?)
"Return a (optionally deep) copy of record VAL."
(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)))
(if (recordp val) ; `record' specializer not supported until Emacs 30
(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))
(cl-defmethod doom-copy ((val sequence) &optional deep?)
"Return a (optionally deep) copy of sequence VAL."