From 8014cc0367ddc57c8491d3888014f4acaee3d24b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 Aug 1993 10:59:10 +0000 Subject: [PATCH] (x_wm_set_size_hint): New args spec_x and spec_y. Set the window gravity. All callers changed. --- src/xfns.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/xfns.c b/src/xfns.c index a3a50845afd..5da5acf62b9 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1718,7 +1718,7 @@ be shared by the new frame.") { #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 @@ be shared by the new frame.") 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); -- 2.39.5