Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix mouse wheel DND scroll direction on Haiku

Browse source 
* lisp/term/haiku-win.el (haiku-handle-drag-wheel): Record the
last wheel direction.  If it differs, clear the click counter.
This commit is contained in:
Po Lu 2022-07-20 12:16:06 +00:00
parent 4582e356d1
commit 41b30d9958
1 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/term/haiku-win.el
View file

@ -467,6 +467,11 @@ take effect on menu items until the menu bar is updated again."
The car is just that; cdr is the timestamp of the last wheel
movement.")
(defvar haiku-last-wheel-direction nil
"Cons of two elements describing the direction the wheel last turned.
The car is whether or not the movement was horizontal.
The cdr is whether or not the movement was upwards or leftwards.")
(defun haiku-note-wheel-click (timestamp)
"Note that the mouse wheel was moved at TIMESTAMP during drag-and-drop.
Return the number of clicks that were made in quick succession."
@ -490,15 +495,20 @@ FRAME is the frame on top of which the wheel moved.
X and Y are the frame-relative coordinates of the wheel movement.
HORIZONTAL is whether or not the wheel movement was horizontal.
UP is whether or not the wheel moved up (or left)."
;; FIXME: redisplay is very slow after this.
(when (not (equal haiku-last-wheel-direction
(cons horizontal up)))
(setq haiku-last-wheel-direction
(cons horizontal up))
(when (consp haiku-dnd-wheel-count)
(setcar haiku-dnd-wheel-count 0)))
(let ((function (cond
((and (not horizontal) up)
((and (not horizontal) (not up))
mwheel-scroll-up-function)
((not horizontal)
mwheel-scroll-down-function)
(up (if mouse-wheel-flip-direction
mwheel-scroll-right-function
mwheel-scroll-left-function))
((not up) (if mouse-wheel-flip-direction
mwheel-scroll-right-function
mwheel-scroll-left-function))
(t (if mouse-wheel-flip-direction
mwheel-scroll-left-function
mwheel-scroll-right-function))))