From 88daadaf7b5bed3f61637988bf578da834b398b0 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 29 Mar 2025 21:45:24 +0100 Subject: [PATCH] (minibuffer-add-completion-predicate): Evaluate non-symbols. --- lisp/minibuffer.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 65c7d414ff1..424c6ea1608 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -6017,7 +6017,9 @@ predicates together." "minibuffer-collect")) minibuffer-mode) (when (stringp pred) (setq pred (read pred))) - (minibuffer--add-completions-predicate pred (prin1-to-string pred))) + (minibuffer--add-completions-predicate + (if (functionp pred) pred (eval pred t)) + (prin1-to-string pred))) (put 'minibuffer-add-completion-predicate 'minibuffer-action (cons (lambda (p) -- 2.39.5