emacs-elpa-diffs
[Top][All Lists]
Advanced

[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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]