# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1225735015 0
# Node ID 9c62c9e7bd57a4c89d2c7865b559c766dc561189
# Parent  30f2e0e8ef2c875ea298aac24dab2b3872e008f2
(Fx_wm_set_size_hint): New function.

diff -r 30f2e0e8ef2c -r 9c62c9e7bd57 src/xfns.c
--- a/src/xfns.c	Mon Nov 03 17:56:46 2008 +0000
+++ b/src/xfns.c	Mon Nov 03 17:56:55 2008 +0000
@@ -3100,6 +3100,22 @@
 }
 
 
+DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint, Sx_wm_set_size_hint,
+       0, 1, 0,
+       doc: /* Send the size hints for frame FRAME to the window manager.
+If FRAME is nil, use the selected frame.  */)
+     (frame)
+     Lisp_Object frame;
+{
+  struct frame *f;
+  if (NILP (frame))
+    frame = selected_frame;
+  f = XFRAME (frame);
+  BLOCK_INPUT;
+  x_wm_set_size_hint (f, 0, 0);
+  UNBLOCK_INPUT;
+}
+
 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
        1, 1, 0,
        doc: /* Make a new X window, which is called a "frame" in Emacs terms.
@@ -5944,6 +5960,7 @@
   defsubr (&Sx_display_visual_class);
   defsubr (&Sx_display_backing_store);
   defsubr (&Sx_display_save_under);
+  defsubr (&Sx_wm_set_size_hint);
   defsubr (&Sx_create_frame);
   defsubr (&Sx_open_connection);
   defsubr (&Sx_close_connection);