procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/eieio-core.el (eieio-set-defaults): Silence errors

Browse source 
See bug#66938
This commit is contained in:
Stefan Monnier 2023-11-29 10:45:33 -05:00
parent 914e9bd4fe
commit e3ed3bc755
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/eieio-core.el
View file

@ -951,7 +951,10 @@ not nil."
(let ((slots (eieio--class-slots (eieio--object-class obj))))
(dotimes (i (length slots))
(let* ((name (cl--slot-descriptor-name (aref slots i)))
(df (eieio-oref-default obj name)))
;; If the `:initform` signals an error, just skip it,
;; since the error is intended to be signal'ed from
;; `initialize-instance` rather than at the time of `defclass`.
(df (ignore-errors (eieio-oref-default obj name))))
(if (or df set-all)
(eieio-oset obj name df))))))