From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Wed, 7 Nov 2012 05:23:20 +0000 (+0400)
Subject: * xfns.c (Fx_wm_set_size_hint): Use check_x_frame.  Adjust docstring.
X-Git-Tag: emacs-24.3.90~173^2~18^2~182
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5890e400062253b59ab815b68c54463a6d505971;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 37907cd555a..e5c6dd6285d 100644
--- 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 9c99902b93d..82e218479c8 100644
--- 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;
 }