From: Po Lu <luangruo@yahoo.com>
Date: Fri, 26 Nov 2021 06:13:27 +0000 (+0000)
Subject: Fix sign of pixel scroll events on Haiku
X-Git-Tag: emacs-29.0.90~2852^2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09c28ca073e3d4fb68fb7685d6e6ce6dd521fd0e;p=emacs.git

Fix sign of pixel scroll events on Haiku

* src/haikuterm.c (haiku_read_socket): Fix sign of scroll
events.
---

diff --git a/src/haikuterm.c b/src/haikuterm.c
index 97dbe3c8d38..6bf45894065 100644
--- a/src/haikuterm.c
+++ b/src/haikuterm.c
@@ -3033,8 +3033,8 @@ haiku_read_socket (struct terminal *terminal, struct input_event *hold_quit)
 
 		XSETINT (inev.x, x);
 		XSETINT (inev.y, y);
-		inev.arg = list3 (Qnil, make_float (px),
-				  make_float (py));
+		inev.arg = list3 (Qnil, make_float (-px),
+				  make_float (-py));
 		XSETFRAME (inev.frame_or_window, f);
 
 		inev.modifiers |= (signbit (inev.kind == HORIZ_WHEEL_EVENT