diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-01-02 15:13:37 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-01-02 15:14:16 +0800 |
| commit | 01615b24da97bdb5cc4eaec5792da8238dab9942 (patch) | |
| tree | 5edaa0fcb2ee02383b8762a50666c9c3df09fc76 /src | |
| parent | ad125a99273c7bd81d02d388af3c69125dfe27ee (diff) | |
| download | emacs-01615b24da97bdb5cc4eaec5792da8238dab9942.tar.gz emacs-01615b24da97bdb5cc4eaec5792da8238dab9942.tar.bz2 emacs-01615b24da97bdb5cc4eaec5792da8238dab9942.zip | |
Fix mouse wheel scroll direction on pgtk
* src/pgtkterm.c (scroll_event): Fix scroll modifiers when
`mwheel-coalesce-scroll-events' is nil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pgtkterm.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pgtkterm.c b/src/pgtkterm.c index 74614eae6eb..3093083a82c 100644 --- a/src/pgtkterm.c +++ b/src/pgtkterm.c @@ -6264,9 +6264,9 @@ scroll_event (GtkWidget * widget, GdkEvent * event, gpointer * user_data) ? HORIZ_WHEEL_EVENT : WHEEL_EVENT); inev.ie.modifiers |= (inev.ie.kind == HORIZ_WHEEL_EVENT - ? (delta_x >= 0 ? down_modifier : up_modifier) + ? (delta_x >= 0 ? up_modifier : down_modifier) : (delta_y >= 0 ? down_modifier : up_modifier)); - inev.ie.arg = list3 (Qnil, make_float (delta_x * 100), + inev.ie.arg = list3 (Qnil, make_float (-delta_x * 100), make_float (-delta_y * 100)); } else |