branch: externals/consult
commit f540214bc931b69424ca1a73115904c6b86b87bb
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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
