From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Tue, 20 Mar 2007 08:49:37 +0000 (+0000)
Subject: (Fopen_termscript): Add BLOCK_INPUT around fclose.
X-Git-Tag: emacs-pretest-22.0.97~277
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c1e440960fed94bb10cc3cc1e846baa109a8fc8;p=emacs.git

(Fopen_termscript): Add BLOCK_INPUT around fclose.
(Fsend_string_to_terminal): Add BLOCK_INPUT around fwrite.
---

diff --git a/src/dispnew.c b/src/dispnew.c
index 489c7c647e1..a7efa8249ba 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -6360,7 +6360,12 @@ FILE = nil means just close any termscript file currently open.  */)
      (file)
      Lisp_Object file;
 {
-  if (termscript != 0) fclose (termscript);
+  if (termscript != 0)
+    {
+      BLOCK_INPUT;
+      fclose (termscript);
+      UNBLOCK_INPUT;
+    }
   termscript = 0;
 
   if (! NILP (file))
@@ -6383,6 +6388,7 @@ Control characters in STRING will have terminal-dependent effects.  */)
 {
   /* ??? Perhaps we should do something special for multibyte strings here.  */
   CHECK_STRING (string);
+  BLOCK_INPUT;
   fwrite (SDATA (string), 1, SBYTES (string), stdout);
   fflush (stdout);
   if (termscript)
@@ -6391,6 +6397,7 @@ Control characters in STRING will have terminal-dependent effects.  */)
 	      termscript);
       fflush (termscript);
     }
+  UNBLOCK_INPUT;
   return Qnil;
 }