Mercurial > emacs
changeset 99346:9c62c9e7bd57
(Fx_wm_set_size_hint): New function.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 03 Nov 2008 17:56:55 +0000 |
| parents | 30f2e0e8ef2c |
| children | 49c34c663c00 |
| files | src/xfns.c |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);