* 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 bf6ea90510c5e3e85f99be81f6eca565b5cbf7cf..cdcb340614a777a18bfdd8efc2c02c28095b8af2 100644 (file)
--- 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 304ee364dc801265477ba5509ce342341f611c1a..a769ca7b536d4ad2e5119822964a37277dfa1baa 100644 (file)
--- 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)