master 38797bfa5e 2/2: Allow completion-ignore-case to be buffer-local

[Lars Ingebrigtsen]

branch: master
commit 38797bfa5ef2759d8ae09035eee136273239a277
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow completion-ignore-case to be buffer-local
    
    * lisp/minibuffer.el (completing-read-default): Use the value of
    completion-ignore-case from the current buffer (bug#12615).
---
 lisp/minibuffer.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index e1947ae5dd..198162266e 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4245,6 +4245,7 @@ See `completing-read' for the meaning of the arguments."
                     ;; override bindings in base-keymap.
                     base-keymap)))
          (buffer (current-buffer))
+         (c-i-c completion-ignore-case)
          (result
           (minibuffer-with-setup-hook
               (lambda ()
@@ -4254,7 +4255,9 @@ See `completing-read' for the meaning of the arguments."
                 (setq-local minibuffer-completion-confirm
                             (unless (eq require-match t) require-match))
                 (setq-local minibuffer--require-match require-match)
-                (setq-local minibuffer--original-buffer buffer))
+                (setq-local minibuffer--original-buffer buffer)
+                ;; Copy the value from original buffer to the minibuffer.
+                (setq-local completion-ignore-case c-i-c))
             (read-from-minibuffer prompt initial-input keymap
                                   nil hist def inherit-input-method))))
     (when (and (equal result "") def)