From: Po Lu <luangruo@yahoo.com>
Date: Wed, 22 Dec 2021 13:36:00 +0000 (+0800)
Subject: * src/pgtkterm.c (scroll_event): Fix scroll delta scale.
X-Git-Tag: emacs-29.0.90~3511
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dbe7caed744fe95b855d56bc2f8ebe97788133c;p=emacs.git

* src/pgtkterm.c (scroll_event): Fix scroll delta scale.
---

diff --git a/src/pgtkterm.c b/src/pgtkterm.c
index 74ecde09797..74a71b984c5 100644
--- a/src/pgtkterm.c
+++ b/src/pgtkterm.c
@@ -6141,8 +6141,8 @@ scroll_event (GtkWidget * widget, GdkEvent * event, gpointer * user_data)
 	  inev.ie.modifiers |= (inev.ie.kind == HORIZ_WHEEL_EVENT
 				? (delta_x >= 0 ? down_modifier : up_modifier)
 				: (delta_y >= 0 ? down_modifier : up_modifier));
-	  inev.ie.arg = list3 (Qnil, make_float (delta_x),
-			       make_float (-delta_y));
+	  inev.ie.arg = list3 (Qnil, make_float (delta_x * 100),
+			       make_float (-delta_y * 100));
 	}
       else
 	{