master e22c37a: Fix horizontal wheel events on Haiku

[Po Lu]

branch: master
commit e22c37aa8763b4e8ab5919d87fb14bc9ed175724
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Fix horizontal wheel events on Haiku
    
    * src/haikuterm.c (haiku_read_socket): Fix modifier
    calculation for horizontal wheel events.
---
 src/haikuterm.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/haikuterm.c b/src/haikuterm.c
index 6304d9b..67c202d 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;
              }