From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 19 Jan 2024 08:31:50 +0000 (+0100)
Subject: ; Enable recursive minibuffers for reading completion restrictions
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71a18988b348ea321b8ccf1fc67589c9e22ea256;p=emacs.git

; Enable recursive minibuffers for reading completion restrictions

* lisp/minibuffer.el (minibuffer-widen-completions): Let-bind
'enable-recursive-minibuffers' to t.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index eb4967c0885..e299a166ea7 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -5613,10 +5613,11 @@ remove all current restrictions without prompting."
          desc-pred-alist
        (mapcar (lambda (desc)
                  (assoc desc desc-pred-alist))
-               (completing-read-multiple
-                (format-prompt "Remove completions restriction,s"
-                               (caar desc-pred-alist))
-                desc-pred-alist nil t nil nil (caar desc-pred-alist))))))
+               (let ((enable-recursive-minibuffers t))
+                   (completing-read-multiple
+                    (format-prompt "Remove completions restrictions"
+                                   (caar desc-pred-alist))
+                    desc-pred-alist nil t nil nil (caar desc-pred-alist)))))))
   (when completion-auto-help (minibuffer-completion-help))
   (when-let ((completions-buffer (and (not (minibuffer-narrow-completions-p))
                                       (get-buffer "*Completions*"))))