summaryrefslogtreecommitdiff
path: root/lisp/help-fns.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2009-10-05 19:50:15 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2009-10-05 19:50:15 +0000
commit828821887bd26033b4eef18d5ff03cf49aa09a0b (patch)
tree01f2334ddc79ad3b927510fc7bf7569a58f99a9a /lisp/help-fns.el
parenta8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca (diff)
downloademacs-828821887bd26033b4eef18d5ff03cf49aa09a0b.tar.gz
(describe-function-1): Don't burp is the function is not a symbol.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r--lisp/help-fns.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e30fe28682c..eed605e3e93 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -457,7 +457,9 @@ suitable file is found, return nil."
(terpri)))))
;; Note that list* etc do not get this property until
;; cl-hack-byte-compiler runs, after bytecomp is loaded.
- (when (eq (get function 'byte-compile) 'cl-byte-compile-compiler-macro)
+ (when (and (symbolp function)
+ (eq (get function 'byte-compile)
+ 'cl-byte-compile-compiler-macro))
(princ "This function has a compiler macro")
(let ((lib (get function 'compiler-macro-file)))
(when (stringp lib)