Mercurial > emacs

changeset 76625:4f322e7c202a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include blockinput.h. (Fredirect_debugging_output): Add BLOCK_INPUT around fclose.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Tue, 20 Mar 2007 08:50:46 +0000
parents c8af69547c16
children 2fb8fb4a9bab
files src/print.c
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/print.c	Tue Mar 20 08:50:31 2007 +0000
+++ b/src/print.c	Tue Mar 20 08:50:46 2007 +0000
@@ -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)
-    fclose (stderr);
+    {
+      BLOCK_INPUT;
+      fclose (stderr);
+      UNBLOCK_INPUT;
+    }
   stderr = initial_stderr_stream;
   initial_stderr_stream = NULL;