1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00

Fix deferred-compilation for double compilation (bug#40838).

* lisp/emacs-lisp/comp.el (native-compile-async): Prevent double
	compilation (bug#40838).
This commit is contained in:
Andrea Corallo 2020-04-25 14:45:21 +01:00
parent e208de9d25
commit bab36619fb

View file

@ -2327,7 +2327,9 @@ LOAD can be nil t or 'late."
nil "Trying to queue %s with LOAD %s but this is already \
queued with LOAD %"
file load (cdr entry))
(setf comp-files-queue (append comp-files-queue `((,file . ,load))))))
;; Make sure we are not already compiling `file' (bug#40838).
(unless (gethash file comp-async-compilations)
(setf comp-files-queue (append comp-files-queue `((,file . ,load)))))))
(when (zerop (comp-async-runnings))
(comp-run-async-workers)
(message "Compilation started."))))