From f9467be322ba4f9af91aa3f8fe9b0aab865f5459 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Tue, 20 Mar 2007 08:50:46 +0000 Subject: [PATCH] Include blockinput.h. (Fredirect_debugging_output): Add BLOCK_INPUT around fclose. --- src/print.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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; -- 2.39.5