procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix tty mouse wheel on window systems other than X

Browse source 
* 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.
This commit is contained in:
Po Lu 2021-12-05 09:59:45 +08:00
parent 5404973916
commit 133f9a7e94
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/mwheel.el
View file

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