emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient d834f76492 20/26: transient-format(around:suf


From: Jonas Bernoulli
Subject: [elpa] externals/transient d834f76492 20/26: transient-format(around:suffix): Don't attempt to highlight full line
Date: Sun, 26 Nov 2023 19:42:09 -0500 (EST)

branch: externals/transient
commit d834f7649292cea82e2f50f00499ec7a3ff2da64
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]