((and
(or (boundp sym)
(get sym 'variable-documentation))
- (or
- (documentation-property
- sym 'variable-documentation)
- (condition-case nil
+ (condition-case err
+ (or
+ (documentation-property
+ sym 'variable-documentation)
(documentation-property
(indirect-variable sym)
- 'variable-documentation)
- (cyclic-variable-indirection nil))))
+ 'variable-documentation))
+ (error (message "No doc found: %S" err) nil)))
(help-xref-button 8 'help-variable sym))
((fboundp sym)
(help-xref-button 8 'help-function sym)))))))