Mercurial > emacs

changeset 21707:7b76832ac019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 22 Apr 1998 10:26:10 +0000
parents a0c3ee34362d
children 280e4b4cbd2a
files src/w16select.c
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }