[elpa] externals/consult f540214bc9: Fix broken consult--prompt commands (Fix #733)

[ELPA Syncer]

branch: externals/consult
commit f540214bc931b69424ca1a73115904c6b86b87bb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix broken consult--prompt commands (Fix #733)
---
 consult.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 2dedec742c..35872ddbcd 100644
--- a/consult.el
+++ b/consult.el
@@ -2784,7 +2784,8 @@ Optional source fields:
                              (apply-partially #'consult--add-history nil 
add-history))))
     (car (consult--with-preview
              preview-key state
-             (lambda (_narrow inp _cand) (funcall transform inp)) #'always
+             (lambda (_narrow inp _cand) (funcall transform inp))
+             (lambda () "")
            (read-from-minibuffer prompt initial nil nil history default 
inherit-input-method)))))
 
 (cl-defun consult--prompt (&rest options &key prompt history add-history 
initial default