mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 14:01:43 -08:00
Code Issues Projects Releases Wiki Activity

(Fmouse_position): Convert to glyph units.

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-24 06:20:30 +00:00
parent 9e20143afc
commit 5384466ade
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/frame.c
View file

@ -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));
}