[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 3a337cd971 2/2: consult--directory-prompt: Set
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 3a337cd971 2/2: consult--directory-prompt: Set completion-ignore-case |
Date: |
Mon, 11 Dec 2023 18:59:45 -0500 (EST) |
branch: externals/consult
commit 3a337cd9713cf47d9381182debf40ba2123795c1
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
consult--directory-prompt: Set completion-ignore-case
---
consult.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index 77f5ce313b..ae04d30107 100644
--- a/consult.el
+++ b/consult.el
@@ -806,9 +806,12 @@ asked for the directories or files to search via
;; TODO: `minibuffer-completing-file-name' is
;; mostly deprecated, but still in use. Packages
;; should instead use the completion metadata.
- (minibuffer-completing-file-name t))
+ (minibuffer-completing-file-name t)
+ (ignore-case
read-file-name-completion-ignore-case))
(consult--minibuffer-with-setup-hook
- (lambda () (set-syntax-table
minibuffer-local-filename-syntax))
+ (lambda ()
+ (setq-local completion-ignore-case ignore-case)
+ (set-syntax-table
minibuffer-local-filename-syntax))
(completing-read-multiple "Directories or files: "
#'completion-file-name-table
nil t def
'consult--path-history def))))