[elpa] master bafc3fa 145/187: Allow setting async-bytecomp-get-allowed-pkgs to compile async all packages.

[Michael Albinus]

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

    Allow setting async-bytecomp-get-allowed-pkgs to compile async all packages.
    
    * async-bytecomp.el (async-bytecomp-get-allowed-pkgs): Allow using 'all as 
value.
---
 async-bytecomp.el |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/async-bytecomp.el b/async-bytecomp.el
index 0a7dd87..031ece7 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -45,7 +45,9 @@
 (defcustom async-bytecomp-allowed-packages '(async helm)
   "Packages in this list will be compiled asynchronously by `package--compile'.
 All the dependencies of these packages will be compiled async too,
-so no need to add dependencies to this list."
+so no need to add dependencies to this list.
+The value of this variable can also be the symbol `all', in this case
+packages are always compiled asynchronously."
   :group 'async
   :type '(repeat (choice symbol)))
 
@@ -121,7 +123,8 @@ All *.elc files are systematically deleted before 
proceeding."
       (t        (delete-dups (append direct-deps indirect-deps))))))
 
 (defun async-bytecomp-get-allowed-pkgs ()
-  (when async-bytecomp-allowed-packages
+  (when (and async-bytecomp-allowed-packages
+             (listp async-bytecomp-allowed-packages))
     (cl-loop for p in async-bytecomp-allowed-packages
              append (async-bytecomp--get-package-deps p) into reqs
              finally return
@@ -130,7 +133,8 @@ All *.elc files are systematically deleted before 
proceeding."
 
 (defadvice package--compile (around byte-compile-async activate)
   (let ((cur-package (package-desc-name pkg-desc)))
-    (if (memq cur-package (async-bytecomp-get-allowed-pkgs))
+    (if (or (eq async-bytecomp-get-allowed-pkgs 'all)
+            (memq cur-package (async-bytecomp-get-allowed-pkgs)))
         (progn
           (when (eq cur-package 'async)
             (fmakunbound 'async-byte-recompile-directory))