* lisp/emacs-lisp/eieio.el (class-parent): Undo previous change.
Ref: http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00354.html
This commit is contained in:
parent
e189e54eea
commit
9a0289a2e9
2 changed files with 5 additions and 4 deletions
|
@ -322,10 +322,7 @@ The CLOS function `class-direct-subclasses' is aliased to this function."
|
|||
(defmacro eieio-class-parent (class)
|
||||
"Return first parent class to CLASS. (overload of variable)."
|
||||
`(car (eieio-class-parents ,class)))
|
||||
|
||||
(defmacro class-parent (class)
|
||||
(declare (obsolete eieio-class-parent "24.4"))
|
||||
'(eieio-class-parent class))
|
||||
(define-obsolete-function-alias 'class-parent 'eieio-class-parent "24.4")
|
||||
|
||||
(defun same-class-p (obj class) "Return t if OBJ is of class-type CLASS."
|
||||
(eieio--check-type class-p class)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue