[Emacs-diffs] Changes to emacs/src/dispnew.c,v

[YAMAMOTO Mitsuharu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   07/03/20 08:49:37

Index: dispnew.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/dispnew.c,v
retrieving revision 1.390
retrieving revision 1.391
diff -u -b -r1.390 -r1.391
--- dispnew.c   22 Feb 2007 19:52:41 -0000      1.390
+++ dispnew.c   20 Mar 2007 08:49:37 -0000      1.391
@@ -6360,7 +6360,12 @@
      (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 @@
 {
   /* ??? 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 @@
              termscript);
       fflush (termscript);
     }
+  UNBLOCK_INPUT;
   return Qnil;
 }