retrieve function documentation correctly

This commit is contained in:
Noam Postavsky 2013-11-27 21:04:26 -05:00
parent fd3fa39444
commit 8d7c9a63a2

View File

@ -49,7 +49,7 @@
(body (or (cond ((boundp symbol) (body (or (cond ((boundp symbol)
(documentation-property symbol 'variable-documentation t)) (documentation-property symbol 'variable-documentation t))
((fboundp symbol) ((fboundp symbol)
(documentation-property symbol 'function-documentation t)) (documentation symbol t))
(t (t
(format "*WARNING*: no symbol named =%s=" symbol))) (format "*WARNING*: no symbol named =%s=" symbol)))
(format "*WARNING*: no doc for symbol =%s=" symbol))) (format "*WARNING*: no doc for symbol =%s=" symbol)))