From 0ee1a16769bfc8d3e6205e8d8dabc3be34df48b4 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 24 Feb 2021 00:03:21 +0100 Subject: [PATCH] Fix async compilation and paramenter naming * lisp/emacs-lisp/comp.el (native--compile-async) (native-compile-async): Fix broken parameter renaming. --- lisp/emacs-lisp/comp.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index f18f8e37727..9ed92d720cf 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -4011,7 +4011,7 @@ LOAD and SELECTOR work as described in `native--compile-async'." (defun native--compile-async (files &optional recursively load selector) "Compile FILES asynchronously. -FILES is one path or a list of files to files or directories. +FILES is one filename or a list of filenames or directories. If optional argument RECURSIVELY is non-nil, recurse into subdirectories of given directories. @@ -4042,18 +4042,18 @@ bytecode definition was not changed in the meanwhile)." (error "LOAD must be nil, t or 'late")) (unless (listp files) (setf files (list files))) - (let (files) + (let (file-list) (dolist (path files) (cond ((file-directory-p path) (dolist (file (if recursively (directory-files-recursively path comp-valid-source-re) (directory-files path t comp-valid-source-re))) - (push file files))) - ((file-exists-p path) (push path files)) + (push file file-list))) + ((file-exists-p path) (push path file-list)) (t (signal 'native-compiler-error (list "Path not a file nor directory" path))))) - (dolist (file files) + (dolist (file file-list) (if-let ((entry (cl-find file comp-files-queue :key #'car :test #'string=))) ;; Most likely the byte-compiler has requested a deferred ;; compilation, so update `comp-files-queue' to reflect that. @@ -4125,7 +4125,7 @@ environment variable 'NATIVE_DISABLED' is set byte compile only." ;;;###autoload (defun native-compile-async (files &optional recursively load selector) "Compile FILES asynchronously. -FILES is one path or a list of files to files or directories. +FILES is one file or a list of filenames or directories. If optional argument RECURSIVELY is non-nil, recurse into subdirectories of given directories. -- 2.39.2