[elpa] externals/transient ac02efc 1/8: transient--scroll-commands: New variable

[Jonas Bernoulli]

branch: externals/transient
commit ac02efc1193973b88b04252968d7bcdbafaff7a6
Author: Jonas Bernoulli <address@hidden>
Commit: Jonas Bernoulli <address@hidden>

    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))