# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1188942159 0
# Node ID 9b1d709095f9b33ec53444ea444761a18e729ad4
# Parent  f65f55d787ec7604d3ba2393f06fd460cfafd334
(discard_mouse_events): Discard it.
(make_lispy_event): Translate it to a lisp event.
(lispy_wheel_names): Add wheel-left and right events.
(syms_of_keyboard): Enlarge wheel_syms.

diff -r f65f55d787ec -r 9b1d709095f9 src/keyboard.c
--- a/src/keyboard.c	Tue Sep 04 21:40:59 2007 +0000
+++ b/src/keyboard.c	Tue Sep 04 21:42:39 2007 +0000
@@ -4026,6 +4026,7 @@
 
       if (sp->kind == MOUSE_CLICK_EVENT
 	  || sp->kind == WHEEL_EVENT
+          || sp->kind == HORIZ_WHEEL_EVENT
 #ifdef WINDOWSNT
 	  || sp->kind == W32_SCROLL_BAR_CLICK_EVENT
 #endif
@@ -5204,7 +5205,7 @@
 
 static char *lispy_wheel_names[] =
 {
-  "wheel-up", "wheel-down"
+  "wheel-up", "wheel-down", "wheel-left", "wheel-right"
 };
 
 /* drag-n-drop events are generated when a set of selected files are
@@ -5841,6 +5842,7 @@
       }
 
     case WHEEL_EVENT:
+    case HORIZ_WHEEL_EVENT:
       {
 	Lisp_Object position;
 	Lisp_Object head;
@@ -5925,6 +5927,9 @@
 	       the up_modifier set.  */
 	    abort ();
 
+          if (event->kind == HORIZ_WHEEL_EVENT)
+            symbol_num += 2;
+
 	  /* Get the symbol we should use for the wheel event.  */
 	  head = modify_event_symbol (symbol_num,
 				      event->modifiers,
@@ -11800,7 +11805,7 @@
   staticpro (&button_down_location);
   mouse_syms = Fmake_vector (make_number (1), Qnil);
   staticpro (&mouse_syms);
-  wheel_syms = Fmake_vector (make_number (2), Qnil);
+  wheel_syms = Fmake_vector (make_number (4), Qnil);
   staticpro (&wheel_syms);
 
   {