branch: externals/transient
commit 31af5b407414227b98312cff15fed7f60ce5e65a
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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)
