# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892558800 0
# Node ID e4ab93e1965853439c7b22f688cece93fa369125
# Parent  33d800bf97c320c51ba4772391c1de3ec6d5acc0
(Fset_mouse_position, Fset_mouse_pixel_position): Fix
mixing of Lisp_Object and int.

diff -r 33d800bf97c3 -r e4ab93e19658 src/frame.c
--- a/src/frame.c	Tue Apr 14 12:59:32 1998 +0000
+++ b/src/frame.c	Tue Apr 14 13:00:00 1998 +0000
@@ -1376,7 +1376,7 @@
 #ifdef HAVE_WINDOW_SYSTEM
   if (FRAME_WINDOW_P (XFRAME (frame)))
     /* Warping the mouse will cause  enternotify and focus events. */
-    x_set_mouse_position (XFRAME (frame), x, y);
+    x_set_mouse_position (XFRAME (frame), XINT (x), XINT (y));
 #else
 #if defined (MSDOS) && defined (HAVE_MOUSE)
   if (FRAME_MSDOS_P (XFRAME (frame)))
@@ -1408,7 +1408,7 @@
 #ifdef HAVE_WINDOW_SYSTEM
   if (FRAME_WINDOW_P (XFRAME (frame)))
     /* Warping the mouse will cause  enternotify and focus events. */
-    x_set_mouse_pixel_position (XFRAME (frame), x, y);
+    x_set_mouse_pixel_position (XFRAME (frame), XINT (x), XINT (y));
 #else
 #if defined (MSDOS) && defined (HAVE_MOUSE)
   if (FRAME_MSDOS_P (XFRAME (frame)))