diff --git a/doc/yas-doc-helper.el b/doc/yas-doc-helper.el index f9e0f69..c940b20 100755 --- a/doc/yas-doc-helper.el +++ b/doc/yas-doc-helper.el @@ -46,13 +46,13 @@ (concat-lines ":PROPERTIES:" (format ":CUSTOM_ID: %s" symbol) ":END:")) - (body (or (cond ((boundp symbol) - (documentation-property symbol 'variable-documentation t)) - ((fboundp symbol) + (body (or (cond ((fboundp symbol) (let ((doc-synth (car-safe (get symbol 'function-documentation)))) (if (functionp doc-synth) (funcall doc-synth nil) (documentation symbol t)))) + ((boundp symbol) + (documentation-property symbol 'variable-documentation t)) (t (format "*WARNING*: no symbol named =%s=" symbol))) (format "*WARNING*: no doc for symbol =%s=" symbol)))