From f75447737926fd8c898b9e0b77f581f4993a52f1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 19 Sep 2013 00:14:53 -0700 Subject: [PATCH] * emacs-lisp/eieio.el (class-parent): Don't use defalias with macros. --- lisp/ChangeLog | 2 ++ lisp/emacs-lisp/eieio.el | 5 ++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e6eeca49d66..fe5e82cba67 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-09-19 Glenn Morris + * emacs-lisp/eieio.el (class-parent): Don't use defalias with macros. + * eshell/em-unix.el (eshell-remove-entries): Rename argument to avoid name-clash with global `top-level'. diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index fc5da3198f9..e7ec547af9b 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -322,7 +322,10 @@ 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))) -(define-obsolete-function-alias 'class-parent #'eieio-class-parent "24.4") + +(defmacro class-parent (class) + (declare (obsolete eieio-class-parent "24.4")) + '(eieio-class-parent class)) (defun same-class-p (obj class) "Return t if OBJ is of class-type CLASS." (eieio--check-type class-p class) -- 2.39.2