* 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:
Glenn Morris 2013-09-19 16:11:48 -04:00
parent e189e54eea
commit 9a0289a2e9
2 changed files with 5 additions and 4 deletions

View file

@ -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)