changeset 6054:24ffc4bc4067

(Fmouse_position): Convert to glyph units.
author Richard M. Stallman <rms@gnu.org>
date Thu, 24 Feb 1994 06:20:30 +0000
parents 19d123e039fa
children a9f61727a90c
files src/frame.c
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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));
 }