branch: externals/consult
commit 1c561103a230417adc5ff6cbb360ad3a4fb43c79
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Partially revert 3d0fc6a8c6a74b21ca854b8632b3f58e0e513b85
The completion table `read-file-name-internal' cannot handle multiple paths
(`completing-read-multiple') properly and throws errors.
---
consult.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/consult.el b/consult.el
index 07fe2dbfc3..699798cf91 100644
--- a/consult.el
+++ b/consult.el
@@ -819,7 +819,7 @@ asked for the directories or files to search via
(set-syntax-table
minibuffer-local-filename-syntax))
(mapcar #'substitute-in-file-name
(completing-read-multiple "Directories or
files: "
-
#'read-file-name-internal
+
#'completion-file-name-table
nil t def
'consult--path-history def)))))
((and `(,p) (guard (file-directory-p p))) p)
(ps (setq paths (mapcar (lambda (p)
