[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp ea8864f 3/5: * comp.el: (native-compile-async) do no
From: |
Andrea Corallo |
Subject: |
feature/native-comp ea8864f 3/5: * comp.el: (native-compile-async) do not duplicate queue entries |
Date: |
Tue, 17 Mar 2020 04:28:53 -0400 (EDT) |
branch: feature/native-comp
commit ea8864fb672a7ff2d1da1b91885239f60e16b359
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* comp.el: (native-compile-async) do not duplicate queue entries
---
lisp/emacs-lisp/comp.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 68d3b8b..c00a683 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -2229,7 +2229,8 @@ of given directories."
((file-exists-p path) (push path files))
(t (signal 'native-compiler-error
(list "Path not a file nor directory" path)))))
- (setf comp-files-queue (nconc files comp-files-queue))
+ (dolist (file files)
+ (add-to-list 'comp-files-queue file t))
(when (zerop (comp-async-runnings))
(comp-run-async-workers))
(message "Compilation started.")))