branch: externals/transient
commit 5d4a7e718c56cb1b3f99a4cd04d204d627f124b0
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Support navigating to transient-information cells
We have to stop here too, to give users the opportunity to read
the text when using braille output devices.
---
lisp/transient.el | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index f9e3759f80..352d23c89f 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4743,12 +4743,15 @@ as a button."
'transient-enabled-suffix
'transient-disabled-suffix)))
str)))
- (when (and transient-enable-menu-navigation
- (slot-boundp obj 'command))
- (setq str (make-text-button str nil
- 'type 'transient
- 'suffix obj
- 'command (oref obj command))))
+ (cond ((not transient-enable-menu-navigation))
+ ((slot-boundp obj 'command)
+ (setq str (make-text-button str nil
+ 'type 'transient
+ 'suffix obj
+ 'command (oref obj command))))
+ ((and transient-navigate-to-group-descriptions
+ (not (equal str "")))
+ (setq str (make-text-button str nil))))
str))
(cl-defmethod transient-format ((obj transient-infix))
