From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 19 Feb 2015 18:22:21 +0000 (-0500)
Subject: * lisp/emacs-lisp/eieio-opt.el (eieio-help-class): Fix bug#19891
X-Git-Tag: emacs-25.0.90~2564^2~344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4ed798d2598a914b1313e58acaff5b66c487318;p=emacs.git

* lisp/emacs-lisp/eieio-opt.el (eieio-help-class): Fix bug#19891

Fixes: debbugs:19891

* lisp/emacs-lisp/eieio-opt.el (eieio-help-class): `eieio-class-parents'
returns classes, not class names.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf6ea90510c..cdcb340614a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2015-02-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/eieio-opt.el (eieio-help-class): `eieio-class-parents'
+	returns classes, not class names (bug#19891).
+
 	* emacs-lisp/cl-macs.el (cl-struct-slot-value): Handle a nil type.
 
 	* emacs-lisp/smie.el (smie-prec2->grammar): Fix corner case problem.
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el
index 304ee364dc8..a769ca7b536 100644
--- a/lisp/emacs-lisp/eieio-opt.el
+++ b/lisp/emacs-lisp/eieio-opt.el
@@ -99,6 +99,7 @@ If CLASS is actually an object, then also display current values of that object.
     (when pl
       (insert " Inherits from ")
       (while (setq cur (pop pl))
+	(setq cur (eieio--class-symbol cur))
 	(insert "`")
 	(help-insert-xref-button (symbol-name cur)
 				 'help-function cur)