From 24068c6638dda3a70bac81e87122041c9684cbbc Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 19 Jan 2024 09:31:50 +0100 Subject: [PATCH] ; Enable recursive minibuffers for reading completion restrictions * lisp/minibuffer.el (minibuffer-widen-completions): Let-bind 'enable-recursive-minibuffers' to t. --- lisp/minibuffer.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index bcc60baa42b..c51065bb68c 100644 --- 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*")))) -- 2.39.2