Less 'make' chatter in batch mode

* admin/unidata/unidata-gen.el (unidata-gen-files):
* lisp/emacs-lisp/autoload.el (autoload-generate-file-autoloads):
* lisp/emacs-lisp/bytecomp.el (byte-compile-file):
* lisp/files.el (save-buffer, basic-save-buffer):
* lisp/international/quail.el (quail-update-leim-list-file):
Don't output messages like "Generating ..." in batch mode.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index d7025657e783bd899be407c6a2c9a1ef5fbb5166..2f4d122e0c0bcf716f9f6758d160cae45c867380 100644 (file)
--- 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 ca3bae1070a2c8a12368a99d2e2b9a4cc8389e39..8af6fa0dd72ec74a331f3481b5df8d5151448461 100644 (file)
--- 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"

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77a7ec3ac00ba3cbe3512e9458b13d4c8bc7f323..2feb2af917f6b6892e95b32a06750fafabf7f5a2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2015-01-04  Paul Eggert  <eggert@cs.ucla.edu>
+
+       Less 'make' chatter in batch mode
+       * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
+       * emacs-lisp/bytecomp.el (byte-compile-file):
+       * files.el (save-buffer, basic-save-buffer):
+       * international/quail.el (quail-update-leim-list-file):
+       Don't output messages like "Generating ..." in batch mode.
+
 2015-01-04  Dmitry Gutov  <dgutov@yandex.ru>
 
        Unbreak `mouse-action' property in text buttons.

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index e9d13b86c291c4f6936636e50a76601dd3e57967..073d923a178a19d544aca6e70ac49b8c02543b92 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -539,7 +539,7 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE
                                (autoload-find-file file))
         ;; Obey the no-update-autoloads file local variable.
         (unless no-update-autoloads
-          (message "Generating autoloads for %s..." file)
+         (or noninteractive (message "Generating autoloads for %s..." file))
          (setq load-name
                (if (stringp generated-autoload-load-name)
                    generated-autoload-load-name
@@ -623,7 +623,8 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE
                        (nth 5 (file-attributes relfile))))
                     (insert ";;; Generated autoloads from " relfile "\n")))
                 (insert generate-autoload-section-trailer))))
-          (message "Generating autoloads for %s...done" file))
+         (or noninteractive
+             (message "Generating autoloads for %s...done" file)))
         (or visited
             ;; We created this buffer, so we should kill it.
             (kill-buffer (current-buffer))))

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4c694adfa2341605ca141e652d5b3f3ed3ab9cf2..1acd4fe76b28d98b1292195b17a60d7ae333992c 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1858,7 +1858,7 @@ The value is non-nil if there were no errors, nil if errors."
                ;; recompiled).  Previously this was accomplished by
                ;; deleting target-file before writing it.
                (rename-file tempfile target-file t)
-               (message "Wrote %s" target-file))
+               (or noninteractive (message "Wrote %s" target-file)))
            ;; This is just to give a better error message than write-region
            (signal 'file-error
                    (list "Opening output file"

diff --git a/lisp/files.el b/lisp/files.el
index 22362ca13ca77d2eb66c60060250adb4ccfea2d3..80b538c3267e71bb2b7709be8db9fc9dcf357db4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4663,7 +4663,7 @@ See the subroutine `basic-save-buffer' for more information."
     ;; then Rmail-mbox never displays it due to buffer swapping.  If
     ;; the test is ever re-introduced, be sure to handle saving of
     ;; Rmail files.
-    (if (and modp (buffer-file-name))
+    (if (and modp (buffer-file-name) (not noninteractive))
        (message "Saving file %s..." (buffer-file-name)))
     (basic-save-buffer)
     (and modp (memq arg '(4 64)) (setq buffer-backed-up nil))))
@@ -4805,7 +4805,7 @@ Before and after saving the buffer, this function runs
          ;; Support VC `implicit' locking.
          (vc-after-save)
          (run-hooks 'after-save-hook))
-      (message "(No changes need to be saved)"))))
+      (or noninteractive (message "(No changes need to be saved)")))))
 
 ;; This does the "real job" of writing a buffer into its visited file
 ;; and making a backup file.  This is what is normally done

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index f194b93526ec6b3342070993914523051f354fef..2755fd68bef00dcfebe10d9f7b3f2f058a0ddfa4 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -2985,7 +2985,7 @@ of each directory."
        quail-dirs list-buf pkg-list pos)
     (if (not (file-writable-p leim-list))
        (error "Can't write to file \"%s\"" leim-list))
-    (message "Updating %s ..." leim-list)
+    (or noninteractive (message "Updating %s ..." leim-list))
     (setq list-buf (find-file-noselect leim-list))
 
     ;; At first, clean up the file.
@@ -3077,7 +3077,7 @@ of each directory."
       (let ((coding-system-for-write 'utf-8))
        (save-buffer 0)))
     (kill-buffer list-buf)
-    (message "Updating %s ... done" leim-list)))
+    (or noninteractive (message "Updating %s ... done" leim-list))))
 \f
 (defun quail-advice (args)
   "Advise users about the characters input by the current Quail package.