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