diff options
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 12 |
1 files 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'." | |||
| 4011 | 4011 | ||
| 4012 | (defun native--compile-async (files &optional recursively load selector) | 4012 | (defun native--compile-async (files &optional recursively load selector) |
| 4013 | "Compile FILES asynchronously. | 4013 | "Compile FILES asynchronously. |
| 4014 | FILES is one path or a list of files to files or directories. | 4014 | FILES is one filename or a list of filenames or directories. |
| 4015 | 4015 | ||
| 4016 | If optional argument RECURSIVELY is non-nil, recurse into | 4016 | If optional argument RECURSIVELY is non-nil, recurse into |
| 4017 | subdirectories of given directories. | 4017 | subdirectories of given directories. |
| @@ -4042,18 +4042,18 @@ bytecode definition was not changed in the meanwhile)." | |||
| 4042 | (error "LOAD must be nil, t or 'late")) | 4042 | (error "LOAD must be nil, t or 'late")) |
| 4043 | (unless (listp files) | 4043 | (unless (listp files) |
| 4044 | (setf files (list files))) | 4044 | (setf files (list files))) |
| 4045 | (let (files) | 4045 | (let (file-list) |
| 4046 | (dolist (path files) | 4046 | (dolist (path files) |
| 4047 | (cond ((file-directory-p path) | 4047 | (cond ((file-directory-p path) |
| 4048 | (dolist (file (if recursively | 4048 | (dolist (file (if recursively |
| 4049 | (directory-files-recursively | 4049 | (directory-files-recursively |
| 4050 | path comp-valid-source-re) | 4050 | path comp-valid-source-re) |
| 4051 | (directory-files path t comp-valid-source-re))) | 4051 | (directory-files path t comp-valid-source-re))) |
| 4052 | (push file files))) | 4052 | (push file file-list))) |
| 4053 | ((file-exists-p path) (push path files)) | 4053 | ((file-exists-p path) (push path file-list)) |
| 4054 | (t (signal 'native-compiler-error | 4054 | (t (signal 'native-compiler-error |
| 4055 | (list "Path not a file nor directory" path))))) | 4055 | (list "Path not a file nor directory" path))))) |
| 4056 | (dolist (file files) | 4056 | (dolist (file file-list) |
| 4057 | (if-let ((entry (cl-find file comp-files-queue :key #'car :test #'string=))) | 4057 | (if-let ((entry (cl-find file comp-files-queue :key #'car :test #'string=))) |
| 4058 | ;; Most likely the byte-compiler has requested a deferred | 4058 | ;; Most likely the byte-compiler has requested a deferred |
| 4059 | ;; compilation, so update `comp-files-queue' to reflect that. | 4059 | ;; compilation, so update `comp-files-queue' to reflect that. |
| @@ -4125,7 +4125,7 @@ environment variable 'NATIVE_DISABLED' is set byte compile only." | |||
| 4125 | ;;;###autoload | 4125 | ;;;###autoload |
| 4126 | (defun native-compile-async (files &optional recursively load selector) | 4126 | (defun native-compile-async (files &optional recursively load selector) |
| 4127 | "Compile FILES asynchronously. | 4127 | "Compile FILES asynchronously. |
| 4128 | FILES is one path or a list of files to files or directories. | 4128 | FILES is one file or a list of filenames or directories. |
| 4129 | 4129 | ||
| 4130 | If optional argument RECURSIVELY is non-nil, recurse into | 4130 | If optional argument RECURSIVELY is non-nil, recurse into |
| 4131 | subdirectories of given directories. | 4131 | subdirectories of given directories. |