[elpa] master f1b0fc5 125/187: * async-bytecomp.el: Be quiet when compiling for elpa.

[Michael Albinus]

branch: master
commit f1b0fc5a2e88aa1578c5e1fb1c4744eb60c41caf
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    * async-bytecomp.el: Be quiet when compiling for elpa.
---
 async-bytecomp.el |   22 ++++++++++++----------
 1 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index 3c25df8..978ca42 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -44,7 +44,7 @@
 
 (defvar async-byte-compile-log-file "~/.emacs.d/async-bytecomp.log")
 
-(defun async-byte-recompile-directory (directory &optional arg force)
+(defun async-byte-recompile-directory (directory &optional arg force quiet)
   (cl-loop with dir = (directory-files directory t "\\.elc\\'")
            unless dir return nil
            for f in dir
@@ -64,14 +64,16 @@
                       (compilation-mode))
                     (display-buffer buf)
                     (delete-file async-byte-compile-log-file)
-                    (save-excursion
-                      (goto-char (point-min))
-                      (while (re-search-forward "^.*:Error:" nil t)
-                        (incf n))))
-                  (if (> n 0)
-                      (message "Failed to compile %d files in directory `%s'" 
n ,directory)
-                    (message "Directory `%s' compiled asynchronously with 
warnings" ,directory)))
-              (message "Directory `%s' compiled asynchronously with success" 
,directory)))))
+                    (unless ,quiet
+                      (save-excursion
+                        (goto-char (point-min))
+                        (while (re-search-forward "^.*:Error:" nil t)
+                          (incf n)))
+                      (if (> n 0)
+                          (message "Failed to compile %d files in directory 
`%s'" n ,directory)
+                          (message "Directory `%s' compiled asynchronously 
with warnings" ,directory)))))
+              (unless ,quiet
+                (message "Directory `%s' compiled asynchronously with success" 
,directory))))))
     (async-start
      `(lambda ()
         (require 'bytecomp)
@@ -97,7 +99,7 @@
   ;; for the rest (i.e installing info) it is done anyway after
   ;; compilation in package-activate (force arg).
   (package-activate-1 pkg-desc)
-  (async-byte-recompile-directory (package-desc-dir pkg-desc) 0 t))
+  (async-byte-recompile-directory (package-desc-dir pkg-desc) 0 t t))
 
 (provide 'async-bytecomp)