diff options
| author | Stefan Monnier | 2015-09-11 20:30:31 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-09-11 20:30:31 -0400 |
| commit | b2615c753ba9b332b4062b3aef1bf96b57c18215 (patch) | |
| tree | 3f2fbfc3fb01c7384d68344a2ae3ebc42ad75881 | |
| parent | 3928ef2dd5b8febf3b1d9c1bfb22af3698d16bea (diff) | |
| download | emacs-b2615c753ba9b332b4062b3aef1bf96b57c18215.tar.gz emacs-b2615c753ba9b332b4062b3aef1bf96b57c18215.zip | |
* lisp/emacs-lisp/eieio-core.el (class-p): Accept class objects
| -rw-r--r-- | lisp/emacs-lisp/eieio-core.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el index 29c4467b304..f97667c3689 100644 --- a/lisp/emacs-lisp/eieio-core.el +++ b/lisp/emacs-lisp/eieio-core.el | |||
| @@ -135,10 +135,10 @@ Currently under control of this var: | |||
| 135 | (or (cl--find-class class) class) | 135 | (or (cl--find-class class) class) |
| 136 | class)) | 136 | class)) |
| 137 | 137 | ||
| 138 | (defun class-p (class) | 138 | (defun class-p (x) |
| 139 | "Return non-nil if CLASS is a valid class vector. | 139 | "Return non-nil if X is a valid class vector. |
| 140 | CLASS is a symbol." ;FIXME: Is it a vector or a symbol? | 140 | X can also be is a symbol." |
| 141 | (and (symbolp class) (eieio--class-p (cl--find-class class)))) | 141 | (eieio--class-p (if (symbolp x) (cl--find-class x) x))) |
| 142 | 142 | ||
| 143 | (defun eieio--class-print-name (class) | 143 | (defun eieio--class-print-name (class) |
| 144 | "Return a printed representation of CLASS." | 144 | "Return a printed representation of CLASS." |