comparison src/frame.c @ 21524:e4ab93e19658

(Fset_mouse_position, Fset_mouse_pixel_position): Fix mixing of Lisp_Object and int.
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Apr 1998 13:00:00 +0000
parents fa9ff387d260
children 697991d2a2c4
comparison
equal deleted inserted replaced
21523:33d800bf97c3 21524:e4ab93e19658
1374 1374
1375 /* I think this should be done with a hook. */ 1375 /* I think this should be done with a hook. */
1376 #ifdef HAVE_WINDOW_SYSTEM 1376 #ifdef HAVE_WINDOW_SYSTEM
1377 if (FRAME_WINDOW_P (XFRAME (frame))) 1377 if (FRAME_WINDOW_P (XFRAME (frame)))
1378 /* Warping the mouse will cause enternotify and focus events. */ 1378 /* Warping the mouse will cause enternotify and focus events. */
1379 x_set_mouse_position (XFRAME (frame), x, y); 1379 x_set_mouse_position (XFRAME (frame), XINT (x), XINT (y));
1380 #else 1380 #else
1381 #if defined (MSDOS) && defined (HAVE_MOUSE) 1381 #if defined (MSDOS) && defined (HAVE_MOUSE)
1382 if (FRAME_MSDOS_P (XFRAME (frame))) 1382 if (FRAME_MSDOS_P (XFRAME (frame)))
1383 { 1383 {
1384 Fselect_frame (frame, Qnil); 1384 Fselect_frame (frame, Qnil);
1406 1406
1407 /* I think this should be done with a hook. */ 1407 /* I think this should be done with a hook. */
1408 #ifdef HAVE_WINDOW_SYSTEM 1408 #ifdef HAVE_WINDOW_SYSTEM
1409 if (FRAME_WINDOW_P (XFRAME (frame))) 1409 if (FRAME_WINDOW_P (XFRAME (frame)))
1410 /* Warping the mouse will cause enternotify and focus events. */ 1410 /* Warping the mouse will cause enternotify and focus events. */
1411 x_set_mouse_pixel_position (XFRAME (frame), x, y); 1411 x_set_mouse_pixel_position (XFRAME (frame), XINT (x), XINT (y));
1412 #else 1412 #else
1413 #if defined (MSDOS) && defined (HAVE_MOUSE) 1413 #if defined (MSDOS) && defined (HAVE_MOUSE)
1414 if (FRAME_MSDOS_P (XFRAME (frame))) 1414 if (FRAME_MSDOS_P (XFRAME (frame)))
1415 { 1415 {
1416 Fselect_frame (frame, Qnil); 1416 Fselect_frame (frame, Qnil);