X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fevent-Xt.c;h=2eb2fca4d422758c21564cda5bcbf0edecec846f;hb=36b07d1173de7bd14bfdb4ca7e65c51fb1b87804;hp=d597719395fe22c0fe362c6c6d506336bd1ea9f5;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git-

diff --git a/src/event-Xt.c b/src/event-Xt.c
index d597719..2eb2fca 100644
--- a/src/event-Xt.c
+++ b/src/event-Xt.c
@@ -687,20 +687,29 @@ x_handle_sticky_modifiers (XEvent *ev, struct device *d)
     { /* Not a modifier key */
       Bool key_event_p = (type == KeyPress || type == KeyRelease);
 
-      if (type == KeyPress && !xd->last_downkey)
-	xd->last_downkey = keycode;
-      else if (type == ButtonPress ||
-	       (type == KeyPress && xd->last_downkey &&
-		(keycode != xd->last_downkey ||
-		 ev->xkey.time != xd->release_time)))
+      if (type == ButtonPress
+	  || (type == KeyPress
+	      && ((xd->last_downkey
+		   && ((keycode != xd->last_downkey
+			|| ev->xkey.time != xd->release_time)))
+		  || (INTP (Vmodifier_keys_sticky_time)
+		      && ev->xkey.time
+		      > (xd->modifier_release_time
+			 + XINT (Vmodifier_keys_sticky_time))))))
 	{
 	  xd->need_to_add_mask = 0;
 	  xd->last_downkey = 0;
 	}
+      else if (type == KeyPress && !xd->last_downkey)
+	xd->last_downkey = keycode;
+
       if (type == KeyPress)
 	xd->release_time = 0;
       if (type == KeyPress || type == ButtonPress)
-	xd->down_mask = 0;
+	{
+	  xd->down_mask = 0;
+	  xd->modifier_release_time = 0;
+	}
 
       if (key_event_p)
         ev->xkey.state    |= xd->need_to_add_mask;
@@ -722,7 +731,8 @@ x_handle_sticky_modifiers (XEvent *ev, struct device *d)
 	   So we assume that if the release and the next press
 	   occur at the same time, the key was actually auto-
 	   repeated.  Under Open-Windows, at least, this works. */
-	xd->release_time = key_event_p ? ev->xkey.time : ev->xbutton.time;
+	xd->modifier_release_time = xd->release_time
+	  = key_event_p ? ev->xkey.time : ev->xbutton.time;
     }
   else                          /* Modifier key pressed */
     {
@@ -742,6 +752,15 @@ x_handle_sticky_modifiers (XEvent *ev, struct device *d)
 	  xd->need_to_add_mask = 0;
 	}
 
+      if (xd->modifier_release_time
+	  && INTP (Vmodifier_keys_sticky_time)
+	  && (ev->xkey.time
+	      > xd->modifier_release_time + XINT (Vmodifier_keys_sticky_time)))
+	{
+	  xd->need_to_add_mask = 0;
+	  xd->down_mask = 0;
+	}
+
 #define FROB(mask)				\
 do {						\
   if (type == KeyPress)				\
@@ -767,6 +786,7 @@ do {						\
 	  xd->need_to_add_mask |= mask;		\
 	}					\
     }						\
+  xd->modifier_release_time = ev->xkey.time;	\
 } while (0)
 
       for (i = 0; i < xd->x_keysym_map_keysyms_per_code; i++)
@@ -1330,10 +1350,10 @@ x_event_to_emacs_event (XEvent *x_event, Lisp_Event *emacs_event)
 	    Lisp_Object l_dndlist = Qnil, l_item = Qnil;
 	    struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
 
-	    GCPRO4 (l_type, l_data, l_dndlist, l_item);
-
 	    if (! frame)
 	      return 0;	/* not for us */
+
+	    GCPRO4 (l_type, l_data, l_dndlist, l_item);
 	    XSETFRAME (emacs_event->channel, frame);
 
 	    emacs_event->event_type = misc_user_event;