mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(describe-function-1): Don't burp is the function is not a symbol.

Browse source
This commit is contained in:
Stefan Monnier 2009-10-05 19:50:15 +00:00
parent a8f316cab0
commit 828821887b
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/help-fns.el
View file

@ -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)