diff options
| author | Daniel Mendler | 2025-08-01 13:55:16 +0200 |
|---|---|---|
| committer | Stefan Monnier | 2025-08-02 12:29:23 -0400 |
| commit | 84f1080f67c0960cca2d456c68e2d7866c19462c (patch) | |
| tree | 959d67750428d03e90e555e05c03e7953bdc8592 | |
| parent | 0c77c5edfdb7e32941d412b75422ef9d365a7743 (diff) | |
| download | emacs-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.el | 3 |
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 |