From: Spencer Baugh <sbaugh@janestreet.com>
Date: Wed, 7 Aug 2024 15:18:02 +0000 (-0400)
Subject: Support minibuffer-visible-completions in completing-read-multiple
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~581
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=341e5795d5dbd49db330dda68c8d6040cc07ed63;p=emacs.git

Support minibuffer-visible-completions in completing-read-multiple

All that's required is to add minibuffer-visible-completions-map on
top of the completing-read-multiple map; this is the same thing that
minibuffer-visible-completions does in completing-read-default.

* lisp/emacs-lisp/crm.el (completing-read-multiple): Add
minibuffer-visible-completions-map (bug#69189)
---

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 253dfc6237a..422a8d52dcf 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -238,6 +238,11 @@ with empty strings removed."
   (let* ((map (if require-match
                   crm-local-must-match-map
                 crm-local-completion-map))
+         (map (if minibuffer-visible-completions
+                  (make-composed-keymap
+                   (list minibuffer-visible-completions-map
+                         map))
+                map))
          input)
     (minibuffer-with-setup-hook
         (lambda ()