diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-10-05 19:50:15 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-10-05 19:50:15 +0000 |
commit | 828821887bd26033b4eef18d5ff03cf49aa09a0b (patch) | |
tree | 01f2334ddc79ad3b927510fc7bf7569a58f99a9a /lisp/help-fns.el | |
parent | a8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca (diff) | |
download | emacs-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.el | 4 |
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) |