procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(x_report_frame_params): Report top and left

Browse source 
in a way that represents negative offsets correctly.
This commit is contained in:
Karl Heuer 1995-05-29 07:12:58 +00:00
parent fa25dbbca6
commit 9b002b8d0c
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/xfns.c
View file

@ -981,9 +981,22 @@ x_report_frame_params (f, alistptr)
Lisp_Object *alistptr;
{
char buf[16];
Lisp_Object tem;
/* Represent negative positions (off the top or left screen edge)
in a way that Fmodify_frame_parameters will understand correctly. */
XSETINT (tem, f->display.x->left_pos);
if (f->display.x->left_pos >= 0)
store_in_alist (alistptr, Qleft, tem);
else
store_in_alist (alistptr, Qleft, Fcons (Qplus, Fcons (tem, Qnil)));
XSETINT (tem, f->display.x->top_pos);
if (f->display.x->top_pos >= 0)
store_in_alist (alistptr, Qtop, tem);
else
store_in_alist (alistptr, Qtop, Fcons (Qplus, Fcons (tem, Qnil)));
store_in_alist (alistptr, Qleft, make_number (f->display.x->left_pos));
store_in_alist (alistptr, Qtop, make_number (f->display.x->top_pos));
store_in_alist (alistptr, Qborder_width,
make_number (f->display.x->border_width));
store_in_alist (alistptr, Qinternal_border_width,