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

[YAMAMOTO Mitsuharu]

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

Index: print.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/print.c,v
retrieving revision 1.231
retrieving revision 1.232
diff -u -b -r1.231 -r1.232
--- print.c     23 Feb 2007 23:26:27 -0000      1.231
+++ print.c     20 Mar 2007 08:50:46 -0000      1.232
@@ -33,6 +33,7 @@
 #include "dispextern.h"
 #include "termchar.h"
 #include "intervals.h"
+#include "blockinput.h"
 
 Lisp_Object Vstandard_output, Qstandard_output;
 
@@ -976,7 +977,11 @@
      Lisp_Object file, append;
 {
   if (initial_stderr_stream != NULL)
+    {
+      BLOCK_INPUT;
     fclose (stderr);
+      UNBLOCK_INPUT;
+    }
   stderr = initial_stderr_stream;
   initial_stderr_stream = NULL;