; (minibuffer-set-completion-styles): Enable recursive minibuffers.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index a3ab123cc9a272958fc69792c1a8eafaa09de03e..fc6fe1553e0b7851ddedfb4fb28b970a9385ef2d 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2803,7 +2803,8 @@ completions list."
    (list (let ((styles (completion--styles (completion--field-metadata
                                             (minibuffer-prompt-end))))
                (current (when-let ((buf (get-buffer "*Completions*")))
-                          (buffer-local-value 'completion-style buf))))
+                          (buffer-local-value 'completion-style buf)))
+               (enable-recursive-minibuffers t))
            (pcase current-prefix-arg
              (`(,_ . ,_) nil)           ; \\[universal-argument]
              (0 (unless current