(let ((doc (condition-case nil
(or (documentation function)
(gettext "not documented"))
(let ((doc (condition-case nil
(or (documentation function)
(gettext "not documented"))
(if (and strip-arglist
(string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
(setq doc (substring doc 0 (match-beginning 0))))
(if (and strip-arglist
(string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
(setq doc (substring doc 0 (match-beginning 0))))
(documentation-property sym
'variable-documentation t)))
(fun (and sym (fboundp sym)
(documentation-property sym
'variable-documentation t)))
(fun (and sym (fboundp sym)