# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738571488 0
# Node ID 1055aa1b75475e3eb4714839dfdeaa6504f9d1bf
# Parent  dda1a74daff6caf6b3660674746f5b8260195bd3
	* xfns.c (x_set_frame_parameters): Use the first
	position/size parameter we find, not the last.

diff -r dda1a74daff6 -r 1055aa1b7547 src/xfns.c
--- a/src/xfns.c	Fri May 28 06:13:16 1993 +0000
+++ b/src/xfns.c	Fri May 28 06:44:48 1993 +0000
@@ -331,12 +331,8 @@
 
   /* 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 @@
       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 @@
   {
     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))