+ (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)))))