# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1230994406 0
# Node ID b660fb953e3db97e15c8d39bf627d290b7f5a250
# Parent  71968bc03749a5d8bc4e5e8fd935b951b57990df
(parse_modifiers_uncached): Wheel events are clicks (bug#687).

diff -r 71968bc03749 -r b660fb953e3d src/keyboard.c
--- a/src/keyboard.c	Sat Jan 03 14:51:55 2009 +0000
+++ b/src/keyboard.c	Sat Jan 03 14:53:26 2009 +0000
@@ -6313,6 +6313,11 @@
       && ('0' <= SREF (name, i + 6) && SREF (name, i + 6) <= '9'))
     modifiers |= click_modifier;
 
+  if (! (modifiers & (double_modifier | triple_modifier))
+      && i + 6 < SBYTES (name)
+      && strncmp (SDATA (name) + i, "wheel-", 6) == 0)
+    modifiers |= click_modifier;
+
   if (modifier_end)
     *modifier_end = i;