(x_sync): Block input.

diff --git a/src/xfns.c b/src/xfns.c
index 035d20c..9937348 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3730,7 +3730,9 @@ void
 x_sync (frame)
      Lisp_Object frame;
 {
+  BLOCK_INPUT;
   XSync (x_current_display, False);
+  UNBLOCK_INPUT;
 }
 \f
 syms_of_xfns ()