feature/minibuffer-completion-enhancements 41239dbc235 25/35: ; Enable recursive minibuffers for reading completion restrictions

[Eshel Yaron]

branch: feature/minibuffer-completion-enhancements
commit 41239dbc23515f1289ee3ed0dae81804b91b956f
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; Enable recursive minibuffers for reading completion restrictions
    
    * lisp/minibuffer.el (minibuffer-widen-completions): Let-bind
    'enable-recursive-minibuffers' to t.
---
 lisp/minibuffer.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index bcc60baa42b..c51065bb68c 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -5445,10 +5445,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*"))))