[elpa] externals/transient d49f85a 2/8: Support scroll-bar-toolkit-scroll

[Jonas Bernoulli]

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

    Support scroll-bar-toolkit-scroll
    
    Closes #84.
---
 lisp/transient.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 379364b..bfab91e 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1122,7 +1122,8 @@ Usually it remains current while the transient is 
active.")
 (defvar transient--scroll-commands
   '(transient-scroll-up
     transient-scroll-down
-    mwheel-scroll))
+    mwheel-scroll
+    scroll-bar-toolkit-scroll))
 
 ;;; Identities
 
@@ -1338,6 +1339,7 @@ edited using the same functions as used for transients.")
     (define-key map [transient-scroll-up]     'transient--do-stay)
     (define-key map [transient-scroll-down]   'transient--do-stay)
     (define-key map [mwheel-scroll]           'transient--do-stay)
+    (define-key map [scroll-bar-toolkit-scroll]   'transient--do-stay)
     (define-key map [transient-noop]              'transient--do-noop)
     (define-key map [transient-mouse-push-button] 'transient--do-move)
     (define-key map [transient-push-button]       'transient--do-move)