; 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 bcc60baa42bbe6831128f11d9af4b5a48be595b2..c51065bb68c6dded76b83da39b708d9e98da96c5 100644 (file)
--- 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*"))))