master 465544eb556: completion-eager-display: Use buffer content instead of INITIAL-INPUT

[Stefan Monnier]

branch: master
commit 465544eb556777f16415c10e7607f7b72ec5a2b5
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    completion-eager-display: Use buffer content instead of INITIAL-INPUT
    
    * lisp/minibuffer.el (completing-read-default): Use the
    minibuffer content instead of handling INITIAL-INPUT directly.
---
 lisp/minibuffer.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index dfc62c25f38..91495f9f941 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4857,8 +4857,10 @@ See `completing-read' for the meaning of the arguments."
                 ;; `completion-eager-display' is t or if eager display
                 ;; has been requested by the completion table.
                 (when completion-eager-display
-                  (let* ((md (completion-metadata (or initial-input "")
-                                                  collection predicate))
+                  (let* ((md (completion-metadata
+                              (buffer-substring-no-properties
+                               (minibuffer-prompt-end) (point))
+                              collection predicate))
                          (fun (completion-metadata-get md 'eager-display)))
                     (when (or fun (eq completion-eager-display t))
                       (funcall (if (functionp fun)