[Top][All Lists]

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

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

From: Jonas Bernoulli
Subject: [elpa] externals/transient d49f85a 2/8: Support scroll-bar-toolkit-scroll
Date: Sun, 17 May 2020 17:13:12 -0400 (EDT)

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 
 (defvar transient--scroll-commands
-    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)

reply via email to

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