2 files changed, 8 insertions, 2 deletions

diff --git a/admin/ChangeLog b/admin/ChangeLog
index d7025657e78..2f4d122e0c0 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+        Less chatter in batch mode
+        * unidata/unidata-gen.el (unidata-gen-files):
+        Don't output messages like "Generating ..." in batch mode.
+
 2015-01-02  Paul Eggert  <eggert@cs.ucla.edu>
 
         Less 'make' chatter for unidata
diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index ca3bae1070a..8af6fa0dd72 100644
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -1329,7 +1329,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
           (insert (format "(define-char-code-property '%S %S\n  %S)\n"
                           prop basename docstring))
           (with-temp-buffer
-            (message "Generating %s..." file)
+            (or noninteractive (message "Generating %s..." file))
             (when (file-exists-p file)
               (insert-file-contents file)
               (goto-char (point-max))
@@ -1356,7 +1356,7 @@ Property value is a symbol `o' (Open), `c' (Close), or `n' (None)."
                         ";; End:\n\n"
                         (format ";; %s ends here\n" basename)))
             (write-file file)
-            (message "Generating %s...done" file))))
+            (or noninteractive (message "Generating %s...done" file)))))
       (message "Writing %s..." charprop-file)
       (insert ";; Local Variables:\n"
               ";; coding: utf-8\n"