[elpa] externals/transient 9c00fae158 10/26: transient--add-face: Move definition

[Jonas Bernoulli]

branch: externals/transient
commit 9c00fae15811805493e78501eacf6a0d61d95216
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 d9594008d0..b9cdbb29bf 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3861,6 +3861,11 @@ 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))
@@ -3870,11 +3875,6 @@ 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-unreachable-p (obj)
   (and transient--redisplay-key
        (let ((key (oref obj key)))