branch: externals/transient
commit ac02efc1193973b88b04252968d7bcdbafaff7a6
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
transient--scroll-commands: New variable
---
lisp/transient.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 65f6441..379364b 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1119,6 +1119,11 @@ Usually it remains current while the transient is
active.")
(defvar transient--history nil)
+(defvar transient--scroll-commands
+ '(transient-scroll-up
+ transient-scroll-down
+ mwheel-scroll))
+
;;; Identities
(defun transient-suffix-object (&optional command)
@@ -1790,9 +1795,7 @@ EDIT may be non-nil."
(defun transient--redisplay ()
(if (or (eq transient-show-popup t)
transient--showp)
- (unless (memq this-command '(transient-scroll-up
- transient-scroll-down
- mwheel-scroll))
+ (unless (memq this-command transient--scroll-commands)
(transient--show))
(when (and (numberp transient-show-popup)
(not (zerop transient-show-popup))
