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

	* lisp/emacs-lisp/comp.el (native-compile-async): Prevent double
	compilation (bug#40838).

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 1369dd115dd7bf33a7b42c8d2cc7c95c7b912210..42c40aaa43affd09ae6e8372bd94c4175306f58f 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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."))))