mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(completing-read-multiple): Set missing buffer-local variables

Browse source 
* lisp/emacs-lisp/crm.el (completing-read-multiple): Set missing
buffer-local variables `minibuffer--require-match` and
`minibuffer--original-buffer`, which are set by `completing-read` in
the minibuffer setup hook.  (bug#79110)
This commit is contained in:
Daniel Mendler 2025-08-01 13:55:16 +02:00 • committed by Stefan Monnier
parent 0c77c5edfd
commit 84f1080f67
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/crm.el
View file

@ -259,6 +259,7 @@ with empty strings removed."
(list minibuffer-visible-completions-map (list minibuffer-visible-completions-map
map)) map))
map)) map))
(buffer (current-buffer))
input) input)
(minibuffer-with-setup-hook (minibuffer-with-setup-hook
(lambda () (lambda ()
@ -282,6 +283,8 @@ with empty strings removed."
;; see completing_read in src/minibuf.c ;; see completing_read in src/minibuf.c
(setq-local minibuffer-completion-confirm (setq-local minibuffer-completion-confirm
(unless (eq require-match t) require-match)) (unless (eq require-match t) require-match))
(setq-local minibuffer--require-match require-match)
(setq-local minibuffer--original-buffer buffer)
(setq-local crm-completion-table table)) (setq-local crm-completion-table table))
(setq input (read-from-minibuffer (setq input (read-from-minibuffer
(format-spec (format-spec