Mercurial > emacs
diff src/frame.c @ 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 | 650c0f231d17 |
| children | d4e5878462cb |
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)); }