diff options
author | Andrea Corallo <akrl@sdf.org> | 2023-05-17 15:28:46 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2023-05-17 16:09:25 +0200 |
commit | 8a92d00470b7797af58c39cd9d19a913373dc50e (patch) | |
tree | f70ba198cd767b61a985f611f00e3248d1947ecd | |
parent | fc8931d646859046aafbd978b50abe1115452d21 (diff) | |
download | emacs-8a92d00470b7797af58c39cd9d19a913373dc50e.tar.gz |
* Fix missing `comp-files-queue' update (bug#63415).
* lisp/emacs-lisp/comp.el (native--compile-async): Update
`comp-files-queue' for real.
-rw-r--r-- | lisp/emacs-lisp/comp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 025d21631bb..576cd26dba7 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -4237,8 +4237,9 @@ bytecode definition was not changed in the meantime)." ;; compilation, so update `comp-files-queue' to reflect that. (unless (or (null load) (eq load (cdr entry))) - (cl-substitute (cons file load) (car entry) comp-files-queue - :key #'car :test #'string=)) + (setf comp-files-queue + (cl-substitute (cons file load) (car entry) comp-files-queue + :key #'car :test #'string=))) (unless (native-compile-async-skip-p file load selector) (let* ((out-filename (comp-el-to-eln-filename file)) |