diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-03-15 21:07:14 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-03-16 22:56:36 +0000 |
| commit | ea8864fb672a7ff2d1da1b91885239f60e16b359 (patch) | |
| tree | b6b05eda5148f6b3a752783a40c2b9f6f196d27d /lisp/emacs-lisp | |
| parent | 0b28bf0529cc6e6125924cc54ba8de30f3872ab9 (diff) | |
| download | emacs-ea8864fb672a7ff2d1da1b91885239f60e16b359.tar.gz emacs-ea8864fb672a7ff2d1da1b91885239f60e16b359.tar.bz2 emacs-ea8864fb672a7ff2d1da1b91885239f60e16b359.zip | |
* comp.el: (native-compile-async) do not duplicate queue entries
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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."))) |