From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 29 Mar 2025 20:45:24 +0000 (+0100)
Subject: (minibuffer-add-completion-predicate): Evaluate non-symbols.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88daadaf7b5bed3f61637988bf578da834b398b0;p=emacs.git

(minibuffer-add-completion-predicate): Evaluate non-symbols.
---

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)