# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 975177615 0
# Node ID 778426d92d7bfd07629df1b346de067573232442
# Parent  7a9648a6eafb62a72fc10d2ab7718525625e5feb
(make_lispy_event) [mouse_wheel, drag_n_drop]: Args to
window_from_coordinates should be pixel coordinates.

diff -r 7a9648a6eafb -r 778426d92d7b src/keyboard.c
--- a/src/keyboard.c	Sat Nov 25 16:24:43 2000 +0000
+++ b/src/keyboard.c	Sat Nov 25 18:40:15 2000 +0000
@@ -4975,7 +4975,8 @@
 	  return Qnil;
 	pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y),
 			       &column, &row, NULL, 1);
-	window = window_from_coordinates (f, column, row, &part, 0);
+	window = window_from_coordinates (f, XINT (event->x),
+                                          XINT (event->y), &part, 0);
 
 	if (!WINDOWP (window))
 	  {
@@ -5033,7 +5034,6 @@
 	Lisp_Object window;
 	Lisp_Object posn;
 	Lisp_Object files;
-	int row, column;
 
 	/* The frame_or_window field should be a cons of the frame in
 	   which the event occurred and a list of the filenames
@@ -5048,9 +5048,9 @@
 	   have been deleted.  */
 	if (! FRAME_LIVE_P (f))
 	  return Qnil;
-	pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y),
-			       &column, &row, NULL, 1);
-	window = window_from_coordinates (f, column, row, &part, 0);
+
+	window = window_from_coordinates (f, XINT (event->x),
+                                          XINT (event->y), &part, 0);
 
 	if (!WINDOWP (window))
 	  {