[elpa] externals/transient 41521a5c93 12/38: transient--get-predicate-for: Always return a function

[Jonas Bernoulli]

branch: externals/transient
commit 41521a5c934b79685983e148b24230d97b2f6cc5
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>

    transient--get-predicate-for: Always return a function
---
 lisp/transient.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 1a39e3e8fb..386d4d2ad3 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1961,7 +1961,11 @@ value.  Otherwise return CHILDREN as is."
   (or (ignore-errors
         (lookup-key transient--predicate-map
                     (vector (transient--suffix-symbol cmd))))
-      (oref transient--prefix transient-non-suffix)))
+      (let ((pred (oref transient--prefix transient-non-suffix)))
+        (pcase pred
+          (`t   #'transient--do-stay)
+          (`nil #'transient--do-warn)
+          (_    pred)))))
 
 (defun transient--pre-exit ()
   (transient--debug 'pre-exit)