From: Glenn Morris Date: Thu, 19 Sep 2013 20:11:48 +0000 (-0400) Subject: * lisp/emacs-lisp/eieio.el (class-parent): Undo previous change. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1512 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a0289a2e92c6737ef3e866b466b237435fe45d3;p=emacs.git * lisp/emacs-lisp/eieio.el (class-parent): Undo previous change. Ref: http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00354.html --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a557359db95..52d3c015687 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-09-19 Glenn Morris + + * emacs-lisp/eieio.el (class-parent): Undo previous change. + 2013-09-19 Michael Albinus * net/tramp-sh.el (tramp-get-remote-id): Do not raise an error. diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index e7ec547af9b..46381ede9d1 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -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)