procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add 'native-compile-directory' (bug#73303)

Browse source 
* lisp/emacs-lisp/comp.el (native-compile-directory): New function.
* etc/NEWS (native-compile-directory): Add to NEWS.
This commit is contained in:
Andrea Corallo 2024-10-22 17:46:44 +02:00
parent 202adfcfcc
commit 246d68bd2a
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/comp.el
View file

@ -3662,6 +3662,17 @@ the compilation was successful return the compiled function."
(or native-comp-function string))))
(comp--native-compile function-or-file nil output))
;;;###autoload
(defun native-compile-directory (directory)
"Native compile if necessary all the .el files present in DIRECTORY.
Each .el file is native compiled if the corresponding .eln file is not
found inside the current `native-comp-eln-load-path'. The search within
DIRECTORY is perfomed recursively."
(mapc (lambda (file)
(unless (comp-lookup-eln file)
(native-compile file)))
(directory-files-recursively directory ".+\\.el\\'")))
;;;###autoload
(defun batch-native-compile (&optional for-tarball)
"Perform batch native compilation of remaining command-line arguments.