branch: master
commit 005714e0968e3cea5d563d271cb98fc9b942de5d
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Don't run the loop when async-bytecomp-allowed-packages is nil.
* async-bytecomp.el (async-bytecomp-get-allowed-pkgs): Do it.
---
async-bytecomp.el | 13 +++++++------
1 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/async-bytecomp.el b/async-bytecomp.el
index dc8e21a..5cf3f33 100644
--- a/async-bytecomp.el
+++ b/async-bytecomp.el
@@ -105,12 +105,13 @@ All *.elc files are systematically deleted before
proceeding."
(declare-function package-desc-reqs "package.el" (cl-x))
(defun async-bytecomp-get-allowed-pkgs ()
- (cl-loop for p in async-bytecomp-allowed-packages
- for pkg-desc = (car (assoc-default p package-archive-contents))
- append (mapcar 'car (package-desc-reqs pkg-desc)) into reqs
- finally return
- (cl-remove-duplicates
- (append async-bytecomp-allowed-packages reqs))))
+ (when async-bytecomp-allowed-packages
+ (cl-loop for p in async-bytecomp-allowed-packages
+ for pkg-desc = (car (assoc-default p package-archive-contents))
+ append (mapcar 'car (package-desc-reqs pkg-desc)) into reqs
+ finally return
+ (cl-remove-duplicates
+ (append async-bytecomp-allowed-packages reqs)))))
(defadvice package--compile (around byte-compile-async activate)
(let ((cur-package (package-desc-name pkg-desc)))
