From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 30 Jul 2021 11:51:46 +0000 (+0200)
Subject: Fix case insensitivity in `read-file-name'
X-Git-Tag: emacs-28.0.90~1651
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88ba1a86c2db950a8905d3e2a6215f2225e9b3a6;p=emacs.git

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

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.