Fix async compilation and paramenter naming

	* lisp/emacs-lisp/comp.el (native--compile-async)
	(native-compile-async): Fix broken parameter renaming.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f18f8e377279a2ad0182c0af58218aba75a86586..9ed92d720cf70cca850868a3981083b3958db26c 100644 (file)
--- 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.