[Emacs-diffs] master d20f82e: batch write-region no longer says "Wrote FOO"

[Paul Eggert]

branch: master
commit d20f82e6f1ab902469723ebd530ca21bea9cc41b
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    batch write-region no longer says "Wrote FOO"
    
    This cuts down on 'make' chatter a bit.
    * doc/lispref/files.texi (Writing to Files):
    * etc/NEWS: Document this.
    * src/fileio.c (Fwrite_region):
    Don't output "Wrote /whatever/foo.elc" if noninteractive.
---
 doc/lispref/ChangeLog  |    5 +++++
 doc/lispref/files.texi |    5 +++--
 etc/ChangeLog          |    5 +++++
 etc/NEWS               |    3 +++
 src/ChangeLog          |    7 +++++++
 src/fileio.c           |    6 +++---
 6 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index de1a760..941be3c 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-04  Paul Eggert  <address@hidden>
+
+       batch write-region no longer says "Wrote FOO"
+       * files.texi (Writing to Files): Document this.
+
 2014-12-31  Paul Eggert  <address@hidden>
 
        Less 'make' chatter for Emacs doc
diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index 51d1369..c8500d2 100644
--- a/doc/lispref/files.texi
+++ b/doc/lispref/files.texi
@@ -653,8 +653,9 @@ and also calls the functions in the list
 @xref{Format Conversion}.
 
 Normally, @code{write-region} displays the message @samp{Wrote
address@hidden in the echo area.  If @var{visit} is neither @code{t}
-nor @code{nil} nor a string, then this message is inhibited.  This
address@hidden in the echo area.  This message is inhibited if
address@hidden is neither @code{t} nor @code{nil} nor a string, or if
+Emacs is operating in batch mode (@pxref{Batch mode}).  This
 feature is useful for programs that use files for internal purposes,
 files that the user does not need to know about.
 @end deffn
diff --git a/etc/ChangeLog b/etc/ChangeLog
index 2816044..c72c560 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-04  Paul Eggert  <address@hidden>
+
+       batch write-region no longer says "Wrote FOO"
+       * NEWS: Document this.
+
 2014-12-30  Paul Eggert  <address@hidden>
 
        * PROBLEMS: Omit obsolete mention of FQDNs.
diff --git a/etc/NEWS b/etc/NEWS
index ca63ff1..ac42a9f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -551,6 +551,9 @@ system's name has changed or if the Emacs process has 
changed systems,
 and to avoid long waits it no longer consults DNS to canonicalize the
 name.  The variable `system-name' is now obsolete.
 
++++
+** Function `write-region' no longer outputs "Wrote FILE" in batch mode.
+
 ---
 ** New utilities in subr-x.el:
 *** New macros `if-let' and `when-let' allow defining bindings and to
diff --git a/src/ChangeLog b/src/ChangeLog
index 46ab94c..1629aa0 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2015-01-04  Paul Eggert  <address@hidden>
+
+       batch write-region no longer says "Wrote FOO"
+       This cuts down on 'make' chatter a bit.
+       * fileio.c (Fwrite_region):
+       Don't output "Wrote /whatever/foo.elc" if noninteractive.
+
 2015-01-03  Paul Eggert  <address@hidden>
 
        Revert previous change to produce_composite_glyph
diff --git a/src/fileio.c b/src/fileio.c
index b04d998..0f0fd1a 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4741,8 +4741,8 @@ Optional fifth argument VISIT, if t or a string, means
 If VISIT is a string, it is a second file name;
   the output goes to FILENAME, but the buffer is marked as visiting VISIT.
   VISIT is also the file name to lock and unlock for clash detection.
-If VISIT is neither t nor nil nor a string,
-  that means do not display the \"Wrote file\" message.
+If VISIT is neither t nor nil nor a string, or if Emacs is in batch mode,
+  do not display the \"Wrote file\" message.
 The optional sixth arg LOCKNAME, if non-nil, specifies the name to
   use for locking and unlocking, overriding FILENAME and VISIT.
 The optional seventh arg MUSTBENEW, if non-nil, insists on a check
@@ -5109,7 +5109,7 @@ write_region (Lisp_Object start, Lisp_Object end, 
Lisp_Object filename,
       return Qnil;
     }
 
-  if (!auto_saving)
+  if (!auto_saving && !noninteractive)
     message_with_string ((NUMBERP (append)
                          ? "Updated %s"
                          : ! NILP (append)