[Emacs-diffs] /srv/bzr/emacs/trunk r105884: * src/emacs.c (Fkill_emacs): In noninteractive mode exit

[Andreas Schwab]

------------------------------------------------------------
revno: 105884
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Fri 2011-09-23 11:56:55 +0200
message:
  * src/emacs.c (Fkill_emacs): In noninteractive mode exit
  non-successfully if a write error occurred on stdout.  (Bug#9574)
modified:
  src/ChangeLog
  src/emacs.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-09-21 08:13:18 +0000
+++ b/src/ChangeLog     2011-09-23 09:56:55 +0000
@@ -1,3 +1,8 @@
+2011-09-23  Andreas Schwab  <address@hidden>
+
+       * emacs.c (Fkill_emacs): In noninteractive mode exit
+       non-successfully if a write error occurred on stdout.  (Bug#9574)
+
 2011-09-21  Eli Zaretskii  <address@hidden>
 
        * xdisp.c (pop_it): Allow it->object that is a cons cell to pass

=== modified file 'src/emacs.c'
--- a/src/emacs.c       2011-09-09 01:06:52 +0000
+++ b/src/emacs.c       2011-09-23 09:56:55 +0000
@@ -1993,6 +1993,7 @@
 {
   struct gcpro gcpro1;
   Lisp_Object hook;
+  int exit_code;
 
   GCPRO1 (arg);
 
@@ -2017,7 +2018,10 @@
   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);
 }