# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745325950 0
# Node ID f7128c7ea7322fd29de23e15f6d9970e5e867307
# Parent  e55cc9fdaa92853d8c752d2f43290ba1d103e5f4
(x_wm_set_size_hint): New args spec_x and spec_y.
Set the window gravity.  All callers changed.

diff -r e55cc9fdaa92 -r f7128c7ea732 src/xfns.c
--- a/src/xfns.c	Sat Aug 14 10:32:54 1993 +0000
+++ b/src/xfns.c	Sat Aug 14 10:59:10 1993 +0000
@@ -1718,7 +1718,7 @@
 {
 #ifdef HAVE_X11
   struct frame *f;
-  Lisp_Object frame, tem;
+  Lisp_Object frame, tem, tem0, tem1;
   Lisp_Object name;
   int minibuffer_only = 0;
   long window_prompting = 0;
@@ -1861,8 +1861,10 @@
   x_default_parameter (f, parms, Qmenu_bar_lines, make_number (0),
 		       "menuBarLines", "MenuBarLines", number);
 
+  tem0 = x_get_arg (parms, Qtop, 0, 0, number);
+  tem1 = x_get_arg (parms, Qleft, 0, 0, number);
   BLOCK_INPUT;
-  x_wm_set_size_hint (f, window_prompting);
+  x_wm_set_size_hint (f, window_prompting, XINT (tem0), XINT (tem1));
   UNBLOCK_INPUT;
 
   tem = x_get_arg (parms, Qunsplittable, 0, 0, boolean);