[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 88ba1a8: Fix case insensitivity in `read-file-name'
From: |
Lars Ingebrigtsen |
Subject: |
master 88ba1a8: Fix case insensitivity in `read-file-name' |
Date: |
Fri, 30 Jul 2021 07:53:28 -0400 (EDT) |
branch: master
commit 88ba1a86c2db950a8905d3e2a6215f2225e9b3a6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 1578ab8..3751ba8 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 88ba1a8: Fix case insensitivity in `read-file-name',
Lars Ingebrigtsen <=