scratch/eldoc-async 5d608ba 3/4: Fix eldoc-documentation-eager

[Jo�o T�vora]

branch: scratch/eldoc-async
commit 5d608ba5b7b7e5e709d0b6209a042e9f62e2557e
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix eldoc-documentation-eager
    
    If no documentation is supplied by a higher-ranking hook function,
    that's no reason to replace a lower-ranking one doc.
    
    * lisp/emacs-lisp/eldoc.el (eldoc--handle-docs): Simpler trucation
    in one-line case.
---
 lisp/emacs-lisp/eldoc.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index a621c64..4da87fc 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -552,8 +552,9 @@ The built-in values for this function already handle
                   (let ((pos (prog1 howmany (cl-incf howmany))))
                     (cond (eagerp
                            (lambda (string &rest plist)
-                             (when (cl-loop for (p) in received
-                                            never (< p pos))
+                             (when (and string
+                                        (cl-loop for (p) in received
+                                                 never (< p pos)))
                                (setq want 1 received '())
                                ;; This really should be `timer-live-p'
                                (when (and (timerp 
eldoc--enthusiasm-curbing-timer)