branch: externals/transient
commit b4a25587d1b2fd0053a0e4331064736ea41691a4
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--maybe-pad-keys: Cosmetics
---
lisp/transient.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index cde698c148..7058ca9833 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4077,12 +4077,13 @@ If the OBJ's `key' is currently unreachable, then apply
the face
(when-let ((pad (or (oref group pad-keys)
(and parent (oref parent pad-keys)))))
(oset group pad-keys
- (apply #'max (cons (if (integerp pad) pad 0)
- (seq-keep (lambda (suffix)
- (and (eieio-object-p suffix)
- (slot-boundp suffix 'key)
- (length (oref suffix key))))
- (oref group suffixes)))))))
+ (apply #'max
+ (if (integerp pad) pad 0)
+ (seq-keep (lambda (suffix)
+ (and (eieio-object-p suffix)
+ (slot-boundp suffix 'key)
+ (length (oref suffix key))))
+ (oref group suffixes))))))
(defun transient--pixel-width (string)
(save-window-excursion
