diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2017-12-19 14:56:13 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2018-03-22 10:46:08 +0800 |
| commit | 40ad1ff327616721ce060ea774631b54e3ba26ca (patch) | |
| tree | cd6b5cf6b3ac4ac5fed24966f78751f5bfe06204 /lisp/emacs-lisp/eieio-base.el | |
| parent | 4ec935dc5bc5d6e6ad5c9eb8027412b333b4b9ea (diff) | |
| download | emacs-40ad1ff327616721ce060ea774631b54e3ba26ca.tar.gz | |
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.
Diffstat (limited to 'lisp/emacs-lisp/eieio-base.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index f0fed17b7da..af240794e38 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -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 |