From: Jan Djärv <jan.h.d@swipnet.se>
Date: Fri, 10 Sep 2004 18:56:29 +0000 (+0000)
Subject: Must BLOCK/UNBLOCK around x_uncatch_errors.
X-Git-Tag: ttn-vms-21-2-B4~4963
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0608b1a02e348e79206f52bde026f4e3bb9c5e93;p=emacs.git

Must BLOCK/UNBLOCK around x_uncatch_errors.
---

diff --git a/src/xselect.c b/src/xselect.c
index 80ed34c69e2..1e3efd2bf54 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -748,7 +748,13 @@ x_reply_selection_request (event, format, data, size, type)
      delivered before uncatch errors.  */
   XSync (display, False);
   UNBLOCK_INPUT;
+
+  /* GTK queues events in addition to the queue in Xlib.  So we
+     UNBLOCK to enter the event loop and get possible errors delivered,
+     and then BLOCK again because x_uncatch_errors requires it.  */
+  BLOCK_INPUT;
   x_uncatch_errors (display, count);
+  UNBLOCK_INPUT;
 }
 
 /* Handle a SelectionRequest event EVENT.