From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Tue, 20 Mar 2007 08:50:46 +0000 (+0000)
Subject: Include blockinput.h.
X-Git-Tag: emacs-pretest-22.0.97~273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9467be322ba4f9af91aa3f8fe9b0aab865f5459;p=emacs.git

Include blockinput.h.
(Fredirect_debugging_output): Add BLOCK_INPUT around fclose.
---

diff --git a/src/print.c b/src/print.c
index e3f60e06fcc..4110ef32407 100644
--- a/src/print.c
+++ b/src/print.c
@@ -33,6 +33,7 @@ Boston, MA 02110-1301, USA.  */
 #include "dispextern.h"
 #include "termchar.h"
 #include "intervals.h"
+#include "blockinput.h"
 
 Lisp_Object Vstandard_output, Qstandard_output;
 
@@ -976,7 +977,11 @@ append to existing target file.  */)
      Lisp_Object file, append;
 {
   if (initial_stderr_stream != NULL)
-    fclose (stderr);
+    {
+      BLOCK_INPUT;
+      fclose (stderr);
+      UNBLOCK_INPUT;
+    }
   stderr = initial_stderr_stream;
   initial_stderr_stream = NULL;