* src/emacs.c (Fkill_emacs): In noninteractive mode exit

non-successfully if a write error occurred on stdout.  (Bug#9574)

diff --git a/src/ChangeLog b/src/ChangeLog
index dff41f1dbbfc06d1d248da5bae9f57cb7527144c..44a76068313ad2129dab1b4fde506b56b94889c2 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-23  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * emacs.c (Fkill_emacs): In noninteractive mode exit
+       non-successfully if a write error occurred on stdout.  (Bug#9574)
+
 2011-09-21  Eli Zaretskii  <eliz@gnu.org>
 
        * xdisp.c (pop_it): Allow it->object that is a cons cell to pass

diff --git a/src/emacs.c b/src/emacs.c
index 321e7919c9332565233f20177162bc2ac1c0fd2a..0a684d4423c395727039ac2c33c6129f9494d057 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1993,6 +1993,7 @@ all of which are called before Emacs is actually killed.  */)
 {
   struct gcpro gcpro1;
   Lisp_Object hook;
+  int exit_code;
 
   GCPRO1 (arg);
 
@@ -2017,7 +2018,10 @@ all of which are called before Emacs is actually killed.  */)
   if (STRINGP (Vauto_save_list_file_name))
     unlink (SSDATA (Vauto_save_list_file_name));
 
-  exit (INTEGERP (arg) ? XINT (arg) : EXIT_SUCCESS);
+  exit_code = EXIT_SUCCESS;
+  if (noninteractive && fflush (stdout))
+    exit_code = EXIT_FAILURE;
+  exit (INTEGERP (arg) ? XINT (arg) : exit_code);
 }