summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-09-19 16:11:48 -0400
committerGlenn Morris <rgm@gnu.org>2013-09-19 16:11:48 -0400
commit9a0289a2e92c6737ef3e866b466b237435fe45d3 (patch)
treeb38667744cdf51bf4822abedca8a495a3c156fa6 /lisp/emacs-lisp
parente189e54eea9d4317c484e534cfbce0bcfb4046ce (diff)
downloademacs-9a0289a2e92c6737ef3e866b466b237435fe45d3.tar.gz
emacs-9a0289a2e92c6737ef3e866b466b237435fe45d3.tar.bz2
emacs-9a0289a2e92c6737ef3e866b466b237435fe45d3.zip
* lisp/emacs-lisp/eieio.el (class-parent): Undo previous change.
Ref: http://lists.gnu.org/archive/html/emacs-devel/2013-09/msg00354.html
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/eieio.el5
1 files changed, 1 insertions, 4 deletions
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)