diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-02-24 06:20:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-02-24 06:20:30 +0000 |
commit | b22640a9f08ea220cca68ae79d28a37ea7b166c2 (patch) | |
tree | 134a6dc1519e167f896dd3b4c4ac33c9bbcf0490 /src/frame.c | |
parent | 623928bbbfee49bce376e433de1fe8f0cdbae739 (diff) | |
download | emacs-b22640a9f08ea220cca68ae79d28a37ea7b166c2.tar.gz |
(Fmouse_position): Convert to glyph units.
Diffstat (limited to 'src/frame.c')
-rw-r--r-- | src/frame.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/frame.c b/src/frame.c index f3b83ff106c..98b6fb32f3e 100644 --- a/src/frame.c +++ b/src/frame.c @@ -825,6 +825,7 @@ and nil for X and Y.") 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 @@ and nil for X and Y.") &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 @@ and nil for X and Y.") &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)); } |