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

diff --git a/src/ChangeLog b/src/ChangeLog
index 37907cd555abb370f89b42069356918d1e617590..e5c6dd6285dc77e8a30a160a1fce303e14af0643 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+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>
 
        Restore some duplicate definitions (Bug#12814).

diff --git a/src/xfns.c b/src/xfns.c
index 9c99902b93d4a5d496776cc825ad45a891126385..82e218479c83397982a1d8f3c7d8b4ad188560e1 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -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,
        0, 1, 0,
        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)
 {
-  struct frame *f;
-  if (NILP (frame))
-    frame = selected_frame;
-  f = XFRAME (frame);
+  struct frame *f = check_x_frame (frame);
+
   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 ();
   return Qnil;
 }