# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745312808 0
# Node ID 807ba8bcc309b3aa3292e49519b190f66d8fb033
# Parent  f2f13eeb1c2e420f074bc867d0f818fa65118121
(x_set_frame_parameters): Don't die if just one of
height and width was set.  Likewise left and top.

diff -r f2f13eeb1c2e -r 807ba8bcc309 src/xfns.c
--- a/src/xfns.c	Sat Aug 14 07:14:13 1993 +0000
+++ b/src/xfns.c	Sat Aug 14 07:20:08 1993 +0000
@@ -396,6 +396,18 @@
 	}
     }
 
+  /* Don't die if just one of these was set.  */
+  if (EQ (left, Qunbound))
+    XSET (left, Lisp_Int, f->display.x->left_pos);
+  if (EQ (top, Qunbound))
+    XSET (top, Lisp_Int, f->display.x->top_pos);
+
+  /* Don't die if just one of these was set.  */
+  if (EQ (width, Qunbound))
+    XSET (width, Lisp_Int, FRAME_WIDTH (f));
+  if (EQ (height, Qunbound))
+    XSET (height, Lisp_Int, FRAME_HEIGHT (f));
+
   /* Don't set these parameters these unless they've been explicitly
      specified.  The window might be mapped or resized while we're in
      this function, and we don't want to override that unless the lisp
@@ -408,6 +420,7 @@
     Lisp_Object frame;
 
     XSET (frame, Lisp_Frame, f);
+
     if ((NUMBERP (width) && XINT (width) != FRAME_WIDTH (f))
 	|| (NUMBERP (height) && XINT (height) != FRAME_HEIGHT (f)))
       Fset_frame_size (frame, width, height);