[elpa] externals/transient 31af5b4074 4/9: transient--add-face: Move definition

[Jonas Bernoulli]

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

    transient--add-face: Move definition
---
 lisp/transient.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 260290970a..2185cc899c 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4033,11 +4033,6 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
               choices
               (propertize "|" 'face 'transient-delimiter))))))
 
-(defun transient--add-face (string face &optional append beg end)
-  (let ((str (copy-sequence string)))
-    (add-face-text-property (or beg 0) (or end (length str)) face append str)
-    str))
-
 (defun transient--get-face (obj slot)
   (and-let* (((slot-exists-p obj slot))
              ((slot-boundp obj slot))
@@ -4050,6 +4045,11 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
             (funcall face)))
       face)))
 
+(defun transient--add-face (string face &optional append beg end)
+  (let ((str (copy-sequence string)))
+    (add-face-text-property (or beg 0) (or end (length str)) face append str)
+    str))
+
 (defun transient--key-face (&optional cmd enforce-type)
   (or (and transient-semantic-coloring
            (not transient--helpp)