[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 0ee1a16 4/4: Fix async compilation and paramenter na
From: |
Andrea Corallo |
Subject: |
feature/native-comp 0ee1a16 4/4: Fix async compilation and paramenter naming |
Date: |
Tue, 23 Feb 2021 18:24:56 -0500 (EST) |
branch: feature/native-comp
commit 0ee1a16769bfc8d3e6205e8d8dabc3be34df48b4
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
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 f18f8e3..9ed92d7 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.