From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 24 Dec 2019 19:38:13 +0000 (+0100)
Subject: add batch-native-compile
X-Git-Tag: emacs-28.0.90~2727^2~882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e678021f0c3db705c91831cff466561fd73c3040;p=emacs.git

add batch-native-compile
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6b9965b8200..983ba0e0ba1 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1886,6 +1886,11 @@ Return the compilation unit file name."
                              (list input err-val))))))
     data))
 
+;;;###autoload
+(defun batch-native-compile ()
+  "Ultra cheap impersonation of `batch-byte-compile'."
+  (mapc #'native-compile command-line-args-left))
+
 ;;;###autoload
 (defun native-compile-async (input &optional jobs recursively)
   "Compile INPUT asynchronously.