branch: externals/transient
commit d834f7649292cea82e2f50f00499ec7a3ff2da64
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient-format(around:suffix): Don't attempt to highlight full line
This only worked if the user sets the `extend' attribute of the
`transient-active-infix' face to t (or uses an Emacs version, that
does not contain this intentional regression).
This assumes that the infix is displayed in the only or last column,
which is very likely to be the case, but not guaranteed. If we can
figure out how to make it known here whether that is the case, then
we can consider bringing whole-line highlighting back.
---
lisp/transient.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 7a8c87223f..6caf08ff80 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3658,8 +3658,7 @@ as a button."
(let ((str (cl-call-next-method obj)))
(when (and (cl-typep obj 'transient-infix)
(eq (oref obj command) this-original-command))
- (setq str (transient--add-face (concat str "\n")
- 'transient-active-infix)))
+ (setq str (transient--add-face str 'transient-active-infix)))
(when transient--editp
(setq str (concat (let ((level (oref obj level)))
(propertize (format " %s " level)
