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

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 65c7d414ff118c6a4445d9f049bd249a78908d1f..424c6ea16084cea6fd554e167a229f8cc6787c72 100644 (file)
--- 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)