Commit 5890e400 authored by Dmitry Antipov's avatar Dmitry Antipov
Browse files

* xfns.c (Fx_wm_set_size_hint): Use check_x_frame. Adjust docstring.

parent b6b3b294
2012-11-07 Dmitry Antipov <dmantipov@yandex.ru>
* xfns.c (Fx_wm_set_size_hint): Use check_x_frame. Adjust docstring.
2012-11-06 Paul Eggert <eggert@cs.ucla.edu> 2012-11-06 Paul Eggert <eggert@cs.ucla.edu>
   
Restore some duplicate definitions (Bug#12814). Restore some duplicate definitions (Bug#12814).
......
...@@ -2996,16 +2996,14 @@ x_default_font_parameter (struct frame *f, Lisp_Object parms) ...@@ -2996,16 +2996,14 @@ x_default_font_parameter (struct frame *f, Lisp_Object parms)
DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint, Sx_wm_set_size_hint, DEFUN ("x-wm-set-size-hint", Fx_wm_set_size_hint, Sx_wm_set_size_hint,
0, 1, 0, 0, 1, 0,
doc: /* Send the size hints for frame FRAME to the window manager. doc: /* Send the size hints for frame FRAME to the window manager.
If FRAME is nil, use the selected frame. */) If FRAME is omitted or nil, use the selected frame.
Signal error if FRAME is not an X frame. */)
(Lisp_Object frame) (Lisp_Object frame)
{ {
struct frame *f; struct frame *f = check_x_frame (frame);
if (NILP (frame))
frame = selected_frame;
f = XFRAME (frame);
block_input (); block_input ();
if (FRAME_X_P (f)) x_wm_set_size_hint (f, 0, 0);
x_wm_set_size_hint (f, 0, 0);
unblock_input (); unblock_input ();
return Qnil; return Qnil;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment