[Emacs-diffs] /srv/bzr/emacs/trunk r110821: * xfns.c (Fx_wm_set_size_hint): Use check_x_frame. Adjust docstring.

[Dmitry Antipov]

------------------------------------------------------------
revno: 110821
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Wed 2012-11-07 09:23:20 +0400
message:
  * xfns.c (Fx_wm_set_size_hint): Use check_x_frame.  Adjust docstring.
modified:
  src/ChangeLog
  src/xfns.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-11-06 20:48:35 +0000
+++ b/src/ChangeLog     2012-11-07 05:23:20 +0000
@@ -1,3 +1,7 @@
+2012-11-07  Dmitry Antipov  <address@hidden>
+
+       * xfns.c (Fx_wm_set_size_hint): Use check_x_frame.  Adjust docstring.
+
 2012-11-06  Paul Eggert  <address@hidden>
 
        Restore some duplicate definitions (Bug#12814).

=== modified file 'src/xfns.c'
--- a/src/xfns.c        2012-11-06 13:26:20 +0000
+++ b/src/xfns.c        2012-11-07 05:23:20 +0000
@@ -2996,16 +2996,14 @@
 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;
 }