diff options
| author | Stefan Monnier | 2024-03-08 11:57:22 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2024-03-08 11:57:22 -0500 |
| commit | 345cdd7a70558cd47c2ab3e124e2352debaa57cb (patch) | |
| tree | 1922d54f0a0956ebb8eef235c0a6a5ada72afe7c | |
| parent | 5beb56fb53b2d6ee9d5ad621b7fc2c9d1d0ec9c5 (diff) | |
| download | emacs-345cdd7a70558cd47c2ab3e124e2352debaa57cb.tar.gz emacs-345cdd7a70558cd47c2ab3e124e2352debaa57cb.zip | |
(eieio--generic-subclass-specializers): Autoload class
* lisp/emacs-lisp/eieio-core.el (eieio--generic-subclass-specializers):
Don't forget to handle autoloaded classes.
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 9a73e7c7441..a2f7c4172a3 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el | |||
| @@ -1079,6 +1079,8 @@ method invocation orders of the involved classes." | |||
| 1079 | 1079 | ||
| 1080 | (defun eieio--generic-subclass-specializers (tag &rest _) | 1080 | (defun eieio--generic-subclass-specializers (tag &rest _) |
| 1081 | (when (cl--class-p tag) | 1081 | (when (cl--class-p tag) |
| 1082 | (when (eieio--class-p tag) | ||
| 1083 | (setq tag (eieio--full-class-object tag))) ;Autoload, if applicable. | ||
| 1082 | (mapcar (lambda (class) `(subclass ,class)) | 1084 | (mapcar (lambda (class) `(subclass ,class)) |
| 1083 | (cl--class-allparents tag)))) | 1085 | (cl--class-allparents tag)))) |
| 1084 | 1086 | ||