# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758241462 0
# Node ID 42ec75481b8b078c0d6a03d08fe1769dfa882243
# Parent  d3c064f0062ef138333180bc49b9fc98239199d0
(x_sync): Block input.

diff -r d3c064f0062e -r 42ec75481b8b src/xfns.c
--- a/src/xfns.c	Mon Jan 10 22:37:13 1994 +0000
+++ b/src/xfns.c	Mon Jan 10 22:37:42 1994 +0000
@@ -3730,7 +3730,9 @@
 x_sync (frame)
      Lisp_Object frame;
 {
+  BLOCK_INPUT;
   XSync (x_current_display, False);
+  UNBLOCK_INPUT;
 }
 
 syms_of_xfns ()