summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/eieio-opt.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2014-01-29 23:02:28 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2014-01-29 23:02:28 -0500
commit7b2f049c83480240de97f4431ea4cba2b946a507 (patch)
tree1c2839801022f00302f32ec583d13311a3cf15c3 /lisp/emacs-lisp/eieio-opt.el
parentba74a2c0f27cbec77b4cfa01e70a98e0efb6c1e0 (diff)
downloademacs-7b2f049c83480240de97f4431ea4cba2b946a507.tar.gz
* lisp/emacs-lisp/eieio-opt.el (eieio-help-generic): Don't assume `generic'
is a symbol. Fixes: debbugs:16584
Diffstat (limited to 'lisp/emacs-lisp/eieio-opt.el')
-rw-r--r--lisp/emacs-lisp/eieio-opt.el2
1 files changed, 1 insertions, 1 deletions
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)