[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 133f9a7: Fix tty mouse wheel on window systems other than X
From: |
Po Lu |
Subject: |
master 133f9a7: Fix tty mouse wheel on window systems other than X |
Date: |
Sat, 4 Dec 2021 21:01:45 -0500 (EST) |
branch: master
commit 133f9a7e940e9696d998284b264dfa6430932c3e
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Fix tty mouse wheel on window systems other than X
* lisp/mwheel.el (mouse-wheel-down-alternate-event)
(mouse-wheel-up-alternate-event)
(mouse-wheel-left-alternate-event)
(mouse-wheel-right-alternate-event): Set appropriately for
non-X systems.
---
lisp/mwheel.el | 20 ++++++++++++++++----
1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 6a853a3..9d303b7 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -65,7 +65,10 @@
:set 'mouse-wheel-change-button)
(defcustom mouse-wheel-down-alternate-event
- (when (featurep 'xinput2) 'wheel-up)
+ (if (featurep 'xinput2)
+ 'wheel-up
+ (unless (featurep 'x)
+ 'mouse-4))
"Alternative wheel down event to consider."
:group 'mouse
:type 'symbol
@@ -83,7 +86,10 @@
:set 'mouse-wheel-change-button)
(defcustom mouse-wheel-up-alternate-event
- (when (featurep 'xinput2) 'wheel-down)
+ (if (featurep 'xinput2)
+ 'wheel-down
+ (unless (featurep 'x)
+ 'mouse-5))
"Alternative wheel up event to consider."
:group 'mouse
:type 'symbol
@@ -246,7 +252,10 @@ Also see `mouse-wheel-tilt-scroll'."
"Event used for scrolling left.")
(defvar mouse-wheel-left-alternate-event
- (when (featurep 'xinput2) 'wheel-left)
+ (if (featurep 'xinput2)
+ 'wheel-left
+ (unless (featurep 'x)
+ 'mouse-6))
"Alternative wheel left event to consider.")
(defvar mouse-wheel-right-event
@@ -257,7 +266,10 @@ Also see `mouse-wheel-tilt-scroll'."
"Event used for scrolling right.")
(defvar mouse-wheel-right-alternate-event
- (when (featurep 'xinput2) 'wheel-right)
+ (if (featurep 'xinput2)
+ 'wheel-right
+ (unless (featurep 'x)
+ 'mouse-7))
"Alternative wheel right event to consider.")
(defun mouse-wheel--get-scroll-window (event)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 133f9a7: Fix tty mouse wheel on window systems other than X,
Po Lu <=