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

This commit is contained in:
Eshel Yaron 2024-01-14 18:00:13 +01:00
parent 374614fea4
commit d9cc4be14e
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618

View file

@ -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