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.

(cherry picked from commit 465544eb556777f16415c10e7607f7b72ec5a2b5)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c23e7e767cd048684867f3f6bf9baccb1006a2cd..f64a84e779fedd61533ceb15a0ebe2bcfea56c09 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -5522,8 +5522,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)