# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762070830 0
# Node ID 24ffc4bc4067047d7c5a464dfd3641ea09aafdce
# Parent  19d123e039fa85278ba621cae90f2a996b45f8e6
(Fmouse_position): Convert to glyph units.

diff -r 19d123e039fa -r 24ffc4bc4067 src/frame.c
--- a/src/frame.c	Thu Feb 24 06:19:34 1994 +0000
+++ b/src/frame.c	Thu Feb 24 06:20:30 1994 +0000
@@ -825,6 +825,7 @@
   Lisp_Object lispy_dummy;
   enum scroll_bar_part party_dummy;
   Lisp_Object x, y;
+  int col, row;
   unsigned long long_dummy;
 
   f = selected_frame;
@@ -836,7 +837,11 @@
 			    &lispy_dummy, &party_dummy,
 			    &x, &y,
 			    &long_dummy);
-
+  col = XINT (x);
+  row = XINT (y);
+  glyph_to_pixel_coords (f, col, row, &col, &row);
+  XSETINT (x, col);
+  XSETINT (y, row);
   XSET (lispy_dummy, Lisp_Frame, f);
   return Fcons (lispy_dummy, Fcons (x, y));
 }
@@ -1769,6 +1774,11 @@
 			    &x, &y,
 			    &long_dummy);
 
+  col = XINT (x);
+  row = XINT (y);
+  glyph_to_pixel_coords (f, col, row, &col, &row);
+  XSETINT (x, col);
+  XSETINT (y, row);
   /* Always return nil for frame.  */
   return Fcons (Qnil, Fcons (x, y));
 }