diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-11-26 22:00:01 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-11-26 22:00:01 +0100 |
| commit | d834f7649292cea82e2f50f00499ec7a3ff2da64 (patch) | |
| tree | 8a9fc7a1d78bf497c2a27dd25def106c17af9c54 /lisp | |
| parent | 9f3afe94a901fedc7bb7def759ebb00f8ef988fe (diff) | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/transient.el | 3 |
1 files changed, 1 insertions, 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) |