From d834f7649292cea82e2f50f00499ec7a3ff2da64 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 26 Nov 2023 22:00:01 +0100 Subject: 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 7a8c872..6caf08f 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) -- cgit v1.0