Make CTRL modifier work for mouse wheel. (Benjamin Haskell)

diff --git a/src/term.c b/src/term.c
index 2e0376ce13c5a4d25cebcc3fbc610c1249f7054d..c0eee98f36813a4b6dd1b9f528be7d4281b3e5ac 100644 (file)
--- a/src/term.c
+++ b/src/term.c
@@ -4775,8 +4775,12 @@ check_termcode(max_offset, buf, buflen)
            /* Work out our pseudo mouse event */
            key_name[0] = (int)KS_EXTRA;
            if (wheel_code != 0)
+           {
+               if (wheel_code & MOUSE_CTRL)
+                   modifiers |= MOD_MASK_CTRL;
                key_name[1] = (wheel_code & 1)
                                        ? (int)KE_MOUSEUP : (int)KE_MOUSEDOWN;
+           }
            else
                key_name[1] = get_pseudo_mouse_code(current_button,
                                                           is_click, is_drag);