[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient 1fd1cf517f 3/5: When highlighting suffixes no
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient 1fd1cf517f 3/5: When highlighting suffixes not normally displayed consider group level |
Date: |
Sun, 30 Jan 2022 17:41:27 -0500 (EST) |
branch: externals/transient
commit 1fd1cf517f939588448f22d812eba828c945515a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
When highlighting suffixes not normally displayed consider group level
---
lisp/transient.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 9a8c53ec9b..9a20fc62f6 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3172,13 +3172,18 @@ have a history of their own.")
(when groups
(insert ?\n)))))
+(defvar transient--max-group-level 1)
+
(cl-defgeneric transient--insert-group (group)
"Format GROUP and its elements and insert the result.")
-(cl-defmethod transient--insert-group :before ((group transient-group))
+(cl-defmethod transient--insert-group :around ((group transient-group))
"Insert GROUP's description, if any."
(when-let ((desc (transient-format-description group)))
- (insert desc ?\n)))
+ (insert desc ?\n))
+ (let ((transient--max-group-level
+ (max (oref group level) transient--max-group-level)))
+ (cl-call-next-method group)))
(cl-defmethod transient--insert-group ((group transient-row))
(transient--maybe-pad-keys group)
@@ -3419,7 +3424,8 @@ If the OBJ's `key' is currently unreachable, then apply
the face
(cond ((transient--key-unreachable-p obj)
(propertize desc 'face 'transient-unreachable))
((and transient-highlight-higher-levels
- (> (oref obj level) transient--default-prefix-level))
+ (> (max (oref obj level) transient--max-group-level)
+ transient--default-prefix-level))
(add-face-text-property
0 (length desc) 'transient-higher-level nil desc)
desc)