- (eldoc-message
- (run-hook-with-args-until-success 'eldoc-documentation-functions)))))
-
-(defun eldoc-supported-p ()
- "Return t if `eldoc-documentation-functions' has non-null elements."
- (if (listp eldoc-documentation-functions)
- (catch :eldoc-supported
- (mapc
- (lambda (fun)
- (when (not (memq fun '(nil ignore)))
- (throw :eldoc-supported t)))
- eldoc-documentation-functions)
- nil)
- (not (memq eldoc-documentation-functions '(nil ignore)))))