# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 893240770 0
# Node ID 7b76832ac0198915c6790a2445d51ef6f8387cfb
# Parent  a0c3ee34362d58e637556741f5b1138731bb8802
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
(Fwin16_get_clipboard_data, Fwin16_set_clipboard_data):	Balance
the calls to BLOCK_INPUT and UNBLOCK_INPUT.

diff -r a0c3ee34362d -r 7b76832ac019 src/w16select.c
--- a/src/w16select.c	Wed Apr 22 08:32:02 1998 +0000
+++ b/src/w16select.c	Wed Apr 22 10:26:10 1998 +0000
@@ -419,12 +419,15 @@
   
   close_clipboard ();
   
-  if (ok) goto done;
+  if (ok) goto unblock;
 
  error:
   
   ok = 0;
 
+ unblock:
+  UNBLOCK_INPUT;
+
   /* Notify user if the text is too large to fit into DOS memory.
      (This will happen somewhere after 600K bytes (470K in DJGPP v1.x),
      depending on user system configuration.)  If we just silently
@@ -437,7 +440,6 @@
     }
   
  done:
-  UNBLOCK_INPUT;
 
   return (ok ? string : Qnil);
 }
@@ -464,7 +466,7 @@
   BLOCK_INPUT;
   
   if (!open_clipboard ())
-    goto done;
+    goto unblock;
 
   if ((data_size = get_clipboard_data_size (CF_TEXT)) == 0 ||
       (htext = (unsigned char *)xmalloc (data_size)) == 0)
@@ -481,9 +483,11 @@
 
  closeclip:
   close_clipboard ();
+
+ unblock:
+  UNBLOCK_INPUT;
   
  done:
-  UNBLOCK_INPUT;
   
   return (ret);
 }