[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master b2615c7: * lisp/emacs-lisp/eieio-core.el (class-p):
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master b2615c7: * lisp/emacs-lisp/eieio-core.el (class-p): Accept class objects |
Date: |
Sat, 12 Sep 2015 00:30:34 +0000 |
branch: master
commit b2615c753ba9b332b4062b3aef1bf96b57c18215
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/eieio-core.el (class-p): Accept class objects
---
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 29c4467..f97667c 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:
(or (cl--find-class class) class)
class))
-(defun class-p (class)
- "Return non-nil if CLASS is a valid class vector.
-CLASS is a symbol." ;FIXME: Is it a vector or a symbol?
- (and (symbolp class) (eieio--class-p (cl--find-class class))))
+(defun class-p (x)
+ "Return non-nil if X is a valid class vector.
+X can also be is a symbol."
+ (eieio--class-p (if (symbolp x) (cl--find-class x) x)))
(defun eieio--class-print-name (class)
"Return a printed representation of CLASS."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master b2615c7: * lisp/emacs-lisp/eieio-core.el (class-p): Accept class objects,
Stefan Monnier <=