From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 14 Jan 2024 17:00:13 +0000 (+0100)
Subject: ; (minibuffer-set-completion-styles): Enable recursive minibuffers.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d2cae62e57cbf57c97634ced05444c701e38d5c;p=emacs.git

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

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index cabfd21b919..dd90e46dda2 100644
--- 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