branch: externals/transient
commit 9c00fae15811805493e78501eacf6a0d61d95216
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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)))
