martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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));
}