# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1005059236 0
# Node ID 2b25276add8833014a3d0c43e92afde4cbea6972
# Parent  0653f60cebd3f1946650edc79f94ba668df081ae
(make_lispy_event): Check integerness and fix Lisp_Object/int mixup.

diff -r 0653f60cebd3 -r 2b25276add88 src/keyboard.c
--- a/src/keyboard.c	Tue Nov 06 13:22:01 2001 +0000
+++ b/src/keyboard.c	Tue Nov 06 15:07:16 2001 +0000
@@ -4996,10 +4996,11 @@
 		/* The third element of every position
 		   should be the (x,y) pair.  */
 		down = Fcar (Fcdr (Fcdr (start_pos)));
-		if (CONSP (down))
+		if (CONSP (down)
+		    && INTEGERP (XCAR (down)) && INTEGERP (XCDR (down)))
 		  {
-		    xdiff = event->x - XCAR (down);
-		    ydiff = event->y - XCDR (down);
+		    xdiff = XFASTINT (event->x) - XFASTINT (XCAR (down));
+		    ydiff = XFASTINT (event->y) - XFASTINT (XCDR (down));
 		  }
 
 		if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz