From d9cd55a4f1c3f391b996dfbe77ed24306b37ac9f Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 12 Mar 2021 10:24:29 +0100 Subject: Implement `no-native-compile' (bug#46983) * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Capture `no-native-compile'. * lisp/emacs-lisp/comp.el (no-native-compile): Define new variable. (comp-spill-lap-function): Throw when `no-native-compile' was captured non-nil. (comp--native-compile): Catch `no-native-compile' if necessary and return nil in case. --- lisp/emacs-lisp/bytecomp.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/emacs-lisp/bytecomp.el') diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 94424fc38af..8ca4adc6a96 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2275,6 +2275,9 @@ With argument ARG, insert value in current buffer after the form." (push `(comp-debug . ,comp-debug) byte-native-qualities) (defvar comp-native-driver-options) (push `(comp-native-driver-options . ,comp-native-driver-options) + byte-native-qualities) + (defvar no-native-compile) + (push `(no-native-compile . ,no-native-compile) byte-native-qualities)) ;; Compile the forms from the input buffer. -- cgit v1.2.3