From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 15 Mar 2020 21:07:14 +0000 (+0000)
Subject: * comp.el: (native-compile-async) do not duplicate queue entries
X-Git-Tag: emacs-28.0.90~2727^2~767
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea8864fb672a7ff2d1da1b91885239f60e16b359;p=emacs.git

* comp.el: (native-compile-async) do not duplicate queue entries
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 68d3b8b2c73..c00a68307b0 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.")))