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

* xfns.c (x_set_frame_parameters): Use the first

Browse source 
position/size parameter we find, not the last.
This commit is contained in:
Jim Blandy 1993-05-28 06:44:48 +00:00
parent 34aab3076f
commit 312b93ee50
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/xfns.c
View file

@ -331,12 +331,8 @@ x_set_frame_parameters (f, alist)
/* Same here. */
Lisp_Object left, top;
XSET (width, Lisp_Int, FRAME_WIDTH (f));
XSET (height, Lisp_Int, FRAME_HEIGHT (f));
XSET (top, Lisp_Int, f->display.x->top_pos);
XSET (left, Lisp_Int, f->display.x->left_pos);
width = height = top = left = Qnil;
for (tail = alist; CONSP (tail); tail = Fcdr (tail))
{
@ -346,13 +342,16 @@ x_set_frame_parameters (f, alist)
prop = Fcar (elt);
val = Fcdr (elt);
if (EQ (prop, Qwidth))
/* Ignore all but the first set presented. You're supposed to
be able to append two parameter lists and have the first
shadow the second. */
if (EQ (prop, Qwidth) && NILP (width))
width = val;
else if (EQ (prop, Qheight))
else if (EQ (prop, Qheight) && NILP (height))
height = val;
else if (EQ (prop, Qtop))
else if (EQ (prop, Qtop) && NILP (top))
top = val;
else if (EQ (prop, Qleft))
else if (EQ (prop, Qleft) && NILP (left))
left = val;
else
{
@ -373,6 +372,12 @@ x_set_frame_parameters (f, alist)
{
Lisp_Object frame;
if (NILP (width)) XSET (width, Lisp_Int, FRAME_WIDTH (f));
if (NILP (height)) XSET (height, Lisp_Int, FRAME_HEIGHT (f));
if (NILP (top)) XSET (top, Lisp_Int, f->display.x->top_pos);
if (NILP (left)) XSET (left, Lisp_Int, f->display.x->left_pos);
XSET (frame, Lisp_Frame, f);
if (XINT (width) != FRAME_WIDTH (f)
|| XINT (height) != FRAME_HEIGHT (f))