summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2021-03-16 09:10:31 +0100
committerAndrea Corallo <akrl@sdf.org>2021-03-16 09:12:46 +0100
commitf3abb1711811f43d1504d8e48f0d27e015b46d6c (patch)
treead831e061f4b1d11902caed5a47c98345aa113bb
parent6810635bdd109d3df5b6b946e8c9eb11035b579c (diff)
downloademacs-f3abb1711811f43d1504d8e48f0d27e015b46d6c.tar.gz
Have `no-byte-compile' implies also `no-native-compile'.
* lisp/emacs-lisp/comp.el (no-native-compile): Update doctring. * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): when `no-byte-compile' is set to non-nil it overrides this.
-rw-r--r--lisp/emacs-lisp/bytecomp.el3
-rw-r--r--lisp/emacs-lisp/comp.el2
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index b04286c34ae..6b874b69167 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2277,7 +2277,8 @@ With argument ARG, insert value in current buffer after the form."
(push `(comp-native-driver-options . ,comp-native-driver-options)
byte-native-qualities)
(defvar no-native-compile)
- (push `(no-native-compile . ,no-native-compile)
+ ;; `no-byte-compile' implies also `no-native-compile'.
+ (push `(no-native-compile . ,(or no-byte-compile no-native-compile))
byte-native-qualities))
;; Compile the forms from the input buffer.
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 5a4a2f6ef15..a3a481cd36a 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -182,6 +182,8 @@ the .eln output directory."
(defvar no-native-compile nil
"Non-nil to prevent native-compiling of Emacs Lisp code.
+Note that when `no-byte-compile' is set to non-nil it overrides the value of
+`no-native-compile'.
This is normally set in local file variables at the end of the elisp file:
\;; Local Variables:\n;; no-native-compile: t\n;; End: ")