From: Chong Yidong Date: Mon, 3 Nov 2008 17:56:55 +0000 (+0000) Subject: (Fx_wm_set_size_hint): New function. X-Git-Tag: emacs-pretest-23.0.90~2002 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c44e124389fcf3d9e7ce942ff748f8981e0d569;p=emacs.git (Fx_wm_set_size_hint): New function. --- diff --git a/src/xfns.c b/src/xfns.c index f5e40143923..17cbed27898 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -3100,6 +3100,22 @@ x_default_font_parameter (f, parms) } +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 @@ the tool bar buttons. */); 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);