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

2020-03-15 21:07:14 +00:00
parent 0b28bf0529
commit ea8864fb67
1 changed files with 2 additions and 1 deletions
--- 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.")))