From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 30 Jan 2014 04:02:28 +0000 (-0500)
Subject: * lisp/emacs-lisp/eieio-opt.el (eieio-help-generic): Don't assume `generic'
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b2f049c83480240de97f4431ea4cba2b946a507;p=emacs.git

* lisp/emacs-lisp/eieio-opt.el (eieio-help-generic): Don't assume `generic'
is a symbol.

Fixes: debbugs:16584
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ddc6221dffe..ad3c5d71aed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/eieio-opt.el (eieio-help-generic): Don't assume `generic'
+	is a symbol (bug#16584).
+
 2014-01-30  Glenn Morris  <rgm@gnu.org>
 
 	* help.el (help-for-help-internal): Add "P" to text.
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el
index 8e43eff2b83..add4a055ee7 100644
--- a/lisp/emacs-lisp/eieio-opt.el
+++ b/lisp/emacs-lisp/eieio-opt.el
@@ -315,7 +315,7 @@ are not abstract."
 ;;;###autoload
 (defun eieio-help-generic (generic)
   "Describe GENERIC if it is a generic function."
-  (when (generic-p generic)
+  (when (and symbolp generic) (generic-p generic))
     (save-excursion
       (goto-char (point-min))
       (when (re-search-forward " in `.+'.$" nil t)