From: Po Lu <luangruo@yahoo.com>
Date: Sun, 21 Nov 2021 12:43:53 +0000 (+0000)
Subject: Fix horizontal wheel events on Haiku
X-Git-Tag: emacs-29.0.90~2852^2~137
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e22c37aa8763b4e8ab5919d87fb14bc9ed175724;p=emacs.git

Fix horizontal wheel events on Haiku

* src/haikuterm.c (haiku_read_socket): Fix modifier
calculation for horizontal wheel events.
---

diff --git a/src/haikuterm.c b/src/haikuterm.c
index 6304d9bcd3c..67c202d97a2 100644
--- a/src/haikuterm.c
+++ b/src/haikuterm.c
@@ -3025,7 +3025,10 @@ haiku_read_socket (struct terminal *terminal, struct input_event *hold_quit)
 				  make_float (py));
 		XSETFRAME (inev.frame_or_window, f);
 
-		inev.modifiers |= signbit (py) ? up_modifier : down_modifier;
+		inev.modifiers |= (signbit (inev.kind == HORIZ_WHEEL_EVENT
+					    ? px : py)
+				   ? up_modifier
+				   : down_modifier);
 		py = 0.0f;
 		px = 0.0f;
 	      }