diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-22 14:34:50 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-22 14:35:30 +0200 |
| commit | 38797bfa5ef2759d8ae09035eee136273239a277 (patch) | |
| tree | 7fe6b1f99b854b68d834b44dbb2cf0b7e8dd03d7 /lisp/minibuffer.el | |
| parent | 3aaed2e1ccfcc230f813d3fe7867a7abc5b22109 (diff) | |
| download | emacs-38797bfa5ef2759d8ae09035eee136273239a277.tar.gz emacs-38797bfa5ef2759d8ae09035eee136273239a277.tar.bz2 emacs-38797bfa5ef2759d8ae09035eee136273239a277.zip | |
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).
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index e1947ae5ddb..198162266ee 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) |