# HG changeset patch
# User Bram Moolenaar <bram@vim.org>
# Date 1279455971 -7200
# Node ID 1a4a66f0c871cfee593a79ae6df014f5be8bb0f5
# Parent  2a54782940788127a27043e11ac0f6f207f42331
Make CTRL modifier work for mouse wheel. (Benjamin Haskell)

diff --git a/src/term.c b/src/term.c
--- 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);