Handle possible classtype values in eieio-persistent-read
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-validate/fix-slot-value): The function `eieio-persistent-slot-type-is-class-p' could return either a single class, or a list of classes.
This commit is contained in:
parent
4ec935dc5b
commit
40ad1ff327
1 changed files with 1 additions and 1 deletions
|
@ -349,7 +349,7 @@ Second, any text properties will be stripped from strings."
|
|||
(seq-some
|
||||
(lambda (elt)
|
||||
(child-of-class-p (car proposed-value) elt))
|
||||
classtype))
|
||||
(if (listp classtype) classtype (list classtype))))
|
||||
(eieio-persistent-convert-list-to-object
|
||||
proposed-value))
|
||||
(t
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue