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.

diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index de1a760496b45cc9375db145dede204d55934bb6..941be3cf582fab6a091504873a5bc80152629098 100644 (file)
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       batch write-region no longer says "Wrote FOO"
+       * files.texi (Writing to Files): Document this.
+
 2014-12-31  Paul Eggert  <eggert@cs.ucla.edu>
 
        Less 'make' chatter for Emacs doc

diff --git a/doc/lispref/files.texi b/doc/lispref/files.texi
index 51d13692fe5b8af19d35ec5d2afb89961edb99bb..c8500d2f412fd249bdb6a46766a4c1ab08cd916d 100644 (file)
--- 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
-@var{filename}} in the echo area.  If @var{visit} is neither @code{t}
-nor @code{nil} nor a string, then this message is inhibited.  This
+@var{filename}} in the echo area.  This message is inhibited if
+@var{visit} 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 28160449ee63fcfde4286637b2bb5cd666c85dc1..c72c560ec9ce6c07c10ac25f0cfb387e979c1e49 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       batch write-region no longer says "Wrote FOO"
+       * NEWS: Document this.
+
 2014-12-30  Paul Eggert  <eggert@cs.ucla.edu>
 
        * PROBLEMS: Omit obsolete mention of FQDNs.

diff --git a/etc/NEWS b/etc/NEWS
index ca63ff17b44ea7c4569dc3184e98047a7fad09cd..ac42a9ff6dce35f8a268dcc05d272166bad51ff1 100644 (file)
--- 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 46ab94c7c89c1e3c91c985ef8ce40060bd773c26..1629aa0298c972d5afe4a0166ac37cfdf84f365d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2015-01-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       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  <eggert@cs.ucla.edu>
 
        Revert previous change to produce_composite_glyph

diff --git a/src/fileio.c b/src/fileio.c
index b04d99809a6c3f872a243587687ce39cc62cd01b..0f0fd1a5c8d77002a9f1ae8158870b19405c4d96 100644 (file)
--- 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)