[elpa] externals/transient 8e15a29b59 31/41: transient-format-description: Support function as value of face slot

[Jonas Bernoulli]

branch: externals/transient
commit 8e15a29b59d789c244a9edb48b0097550d75a3d5
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient-format-description: Support function as value of face slot
---
 lisp/transient.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index d642ba5d11..a246564ae9 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3726,7 +3726,8 @@ and its value is returned to the caller."
                            (funcall desc)))
                      desc)))
     (progn ; work around debbugs#31840
-      (when-let ((face (and (slot-exists-p obj 'face) (oref obj face))))
+      (when-let* ((face (and (slot-exists-p obj 'face) (oref obj face)))
+                  (face (if (functionp face) (funcall face) face)))
         (add-face-text-property 0 (length desc) face t desc))
       desc)))