From 9a0289a2e92c6737ef3e866b466b237435fe45d3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 19 Sep 2013 16:11:48 -0400 Subject: [PATCH] * lisp/emacs-lisp/eieio.el (class-parent): Undo previous change. Ref: http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00354.html --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/eieio.el | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a557359db9..52d3c01568 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 e7ec547af9..46381ede9d 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) -- 2.20.1