From 173af0cad514b7fa7b71580caa5e59241098607f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 10 Aug 2023 10:18:43 +0200 Subject: [PATCH] * Introduce `emacs-lisp-native-compile'. * lisp/progmodes/elisp-mode.el (emacs-lisp-native-compile): New command. (emacs-lisp-native-compile-and-load): Make use of. --- lisp/progmodes/elisp-mode.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 1b42051ab93..5343be48bb3 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -221,6 +221,16 @@ All commands in `lisp-mode-shared-map' are inherited by this map." (declare-function native-compile "comp") (declare-function comp-write-bytecode-file "comp") +(defun emacs-lisp-native-compile () + "Native-compile synchronously the current file (if it has changed)." + (interactive nil emacs-lisp-mode) + (emacs-lisp--before-compile-buffer) + (let* ((byte+native-compile t) + (byte-to-native-output-buffer-file nil) + (eln (native-compile buffer-file-name))) + (when eln + (comp-write-bytecode-file eln)))) + (defun emacs-lisp-native-compile-and-load () "Native-compile synchronously the current file (if it has changed). Load the compiled code when finished. @@ -229,11 +239,8 @@ Use `emacs-lisp-byte-compile-and-load' in combination with `native-comp-jit-compilation' set to t to achieve asynchronous native compilation." (interactive nil emacs-lisp-mode) - (emacs-lisp--before-compile-buffer) - (let ((byte+native-compile t) - (byte-to-native-output-buffer-file nil)) - (when-let ((eln (native-compile buffer-file-name))) - (load (file-name-sans-extension (comp-write-bytecode-file eln)))))) + (when-let ((byte-file (emacs-lisp-native-compile))) + (load (file-name-sans-extension byte-file)))) (defun emacs-lisp-macroexpand () "Macroexpand the form after point. -- 2.39.2