From 88ba1a86c2db950a8905d3e2a6215f2225e9b3a6 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 30 Jul 2021 13:51:46 +0200 Subject: [PATCH] Fix case insensitivity in `read-file-name' * lisp/minibuffer.el (read-file-name-default): Make `read-file-name' actually respect `read-file-name-completion-ignore-case' (bug#14340). --- lisp/minibuffer.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 1578ab8e1ea..3751ba80e0a 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -3087,7 +3087,7 @@ See `read-file-name' for the meaning of the arguments." (minibuffer-maybe-quote-filename dir))) (initial (cons (minibuffer-maybe-quote-filename initial) 0))))) - (let ((completion-ignore-case read-file-name-completion-ignore-case) + (let ((ignore-case read-file-name-completion-ignore-case) (minibuffer-completing-file-name t) (pred (or predicate 'file-exists-p)) (add-to-history nil)) @@ -3115,6 +3115,7 @@ See `read-file-name' for the meaning of the arguments." minibuffer-default)) (setq minibuffer-default (cdr-safe minibuffer-default))) + (setq-local completion-ignore-case ignore-case) ;; On the first request on `M-n' fill ;; `minibuffer-default' with a list of defaults ;; relevant for file-name reading. -- 2.39.2