Mercurial > emacs

changeset 83879:9b1d709095f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Jason Rumney <jasonr@gnu.org>
date Tue, 04 Sep 2007 21:42:39 +0000
parents f65f55d787ec
children 2bccdc59cb53
files src/keyboard.c
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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);
 
   {