# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 993483436 0
# Node ID 3ef7b5a020b228adcdb3e4d69d398e99364df21a
# Parent  fd45b8013008d0ff500daca6fad60c366241a75c
(Qwait_for_wm): New variable.
(x_frame_parms): Add entry for `wait-for-wm".
(x_set_wait_for_wm): New function.
(Fx_create_frame): Call x_default_parameter for wait-for-wm.
(syms_of_xfns): Initialize and staticpro Qwait_for_wm.

diff -r fd45b8013008 -r 3ef7b5a020b2 src/xfns.c
--- a/src/xfns.c	Mon Jun 25 15:36:53 2001 +0000
+++ b/src/xfns.c	Mon Jun 25 15:37:16 2001 +0000
@@ -217,6 +217,7 @@
 Lisp_Object Qscroll_bar_foreground, Qscroll_bar_background;
 Lisp_Object Qscreen_gamma, Qline_spacing, Qcenter;
 Lisp_Object Qcompound_text, Qcancel_timer;
+Lisp_Object Qwait_for_wm;
 
 /* The below are defined in frame.c.  */
 
@@ -731,6 +732,7 @@
 static void x_create_im P_ ((struct frame *));
 void x_set_foreground_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
 static void x_set_line_spacing P_ ((struct frame *, Lisp_Object, Lisp_Object));
+static void x_set_wait_for_wm P_ ((struct frame *, Lisp_Object, Lisp_Object));
 void x_set_background_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
 void x_set_mouse_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
 void x_set_cursor_color P_ ((struct frame *, Lisp_Object, Lisp_Object));
@@ -799,7 +801,8 @@
   "scroll-bar-foreground",	x_set_scroll_bar_foreground,
   "scroll-bar-background",	x_set_scroll_bar_background,
   "screen-gamma",		x_set_screen_gamma,
-  "line-spacing",		x_set_line_spacing
+  "line-spacing",		x_set_line_spacing,
+  "wait-for-wm",		x_set_wait_for_wm
 };
 
 /* Attach the `x-frame-parameter' properties to
@@ -1312,8 +1315,22 @@
 }
 
 
+/* Change the `wait-for-wm' frame parameter of frame F.  OLD_VALUE is
+   the previous value of that parameter, NEW_VALUE is the new value.
+   See also the comment of wait_for_wm in struct x_output.  */
+
+static void
+x_set_wait_for_wm (f, new_value, old_value)
+     struct frame *f;
+     Lisp_Object new_value, old_value;
+{
+  f->output_data.x->wait_for_wm = !NILP (new_value);
+}
+
+
 /* Change the `screen-gamma' frame parameter of frame F.  OLD_VALUE is
-   the previous value of that parameter, NEW_VALUE is the new value.  */
+   the previous value of that parameter, NEW_VALUE is the new
+   value.  */
 
 static void
 x_set_screen_gamma (f, new_value, old_value)
@@ -4320,6 +4337,8 @@
 		       RES_TYPE_SYMBOL);
   x_default_parameter (f, parms, Qtitle, Qnil,
 		       "title", "Title", RES_TYPE_STRING);
+  x_default_parameter (f, parms, Qwait_for_wm, Qt,
+		       "waitForWM", "WaitForWM", RES_TYPE_BOOLEAN);
 
   f->output_data.x->parent_desc = FRAME_X_DISPLAY_INFO (f)->root_window;
 
@@ -11426,6 +11445,8 @@
   staticpro (&Qcompound_text);
   Qcancel_timer = intern ("cancel-timer");
   staticpro (&Qcancel_timer);
+  Qwait_for_wm = intern ("wait-for-wm");
+  staticpro (&Qwait_for_wm);
   /* This is the end of symbol initialization.  */
 
   /* Text property `display' should be nonsticky by default.  */