From f1b0fc5a2e88aa1578c5e1fb1c4744eb60c41caf Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Tue, 30 Sep 2014 13:21:48 +0200 Subject: [PATCH] * async-bytecomp.el: Be quiet when compiling for elpa. --- async-bytecomp.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/async-bytecomp.el b/async-bytecomp.el index 3c25df82e..978ca4210 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) -- 2.39.2