aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Mendler2025-08-01 13:55:16 +0200
committerStefan Monnier2025-08-02 12:29:23 -0400
commit84f1080f67c0960cca2d456c68e2d7866c19462c (patch)
tree959d67750428d03e90e555e05c03e7953bdc8592
parent0c77c5edfdb7e32941d412b75422ef9d365a7743 (diff)
downloademacs-84f1080f67c0960cca2d456c68e2d7866c19462c.tar.gz
emacs-84f1080f67c0960cca2d456c68e2d7866c19462c.zip
(completing-read-multiple): Set missing buffer-local variables
* 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)
-rw-r--r--lisp/emacs-lisp/crm.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index a75ccd46f50..425a606cb12 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -259,6 +259,7 @@ with empty strings removed."
259 (list minibuffer-visible-completions-map 259 (list minibuffer-visible-completions-map
260 map)) 260 map))
261 map)) 261 map))
262 (buffer (current-buffer))
262 input) 263 input)
263 (minibuffer-with-setup-hook 264 (minibuffer-with-setup-hook
264 (lambda () 265 (lambda ()
@@ -282,6 +283,8 @@ with empty strings removed."
282 ;; see completing_read in src/minibuf.c 283 ;; see completing_read in src/minibuf.c
283 (setq-local minibuffer-completion-confirm 284 (setq-local minibuffer-completion-confirm
284 (unless (eq require-match t) require-match)) 285 (unless (eq require-match t) require-match))
286 (setq-local minibuffer--require-match require-match)
287 (setq-local minibuffer--original-buffer buffer)
285 (setq-local crm-completion-table table)) 288 (setq-local crm-completion-table table))
286 (setq input (read-from-minibuffer 289 (setq input (read-from-minibuffer
287 (format-spec 290 (format-spec