aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorAndrea Corallo2021-05-06 15:00:00 +0200
committerAndrea Corallo2021-05-06 17:16:09 +0200
commit901ce566037b27233b907a51a9cbd330c77830ba (patch)
tree672a982081f17b1b1368ba775c643cc71fe4edc5 /src
parent8c429a42c4ad8137dc932d5ba0f2f5c7bd8f7799 (diff)
downloademacs-901ce566037b27233b907a51a9cbd330c77830ba.tar.gz
emacs-901ce566037b27233b907a51a9cbd330c77830ba.zip
Rename comp-warning-on-missing-source
* src/lread.c (maybe_swap_for_eln): Rename comp-warning-on-missing-source → native-comp-warning-on-missing-source. * src/comp.c (syms_of_comp): Likewise. * lisp/emacs-lisp/comp.el (native-comp-warning-on-missing-source): Likewise.
Diffstat (limited to 'src')
-rw-r--r--src/comp.c3
-rw-r--r--src/lread.c3
2 files changed, 4 insertions, 2 deletions
diff --git a/src/comp.c b/src/comp.c
index 9173dde2202..5cf94762a92 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5272,7 +5272,8 @@ compiled one. */);
5272 DEFSYM (Qlambda_fixup, "lambda-fixup"); 5272 DEFSYM (Qlambda_fixup, "lambda-fixup");
5273 DEFSYM (Qgccjit, "gccjit"); 5273 DEFSYM (Qgccjit, "gccjit");
5274 DEFSYM (Qcomp_subr_trampoline_install, "comp-subr-trampoline-install"); 5274 DEFSYM (Qcomp_subr_trampoline_install, "comp-subr-trampoline-install");
5275 DEFSYM (Qcomp_warning_on_missing_source, "comp-warning-on-missing-source"); 5275 DEFSYM (Qnative_comp_warning_on_missing_source,
5276 "native-comp-warning-on-missing-source");
5276 5277
5277 /* To be signaled by the compiler. */ 5278 /* To be signaled by the compiler. */
5278 DEFSYM (Qnative_compiler_error, "native-compiler-error"); 5279 DEFSYM (Qnative_compiler_error, "native-compiler-error");
diff --git a/src/lread.c b/src/lread.c
index e53e1f65ab9..12e4ca66cdc 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1708,7 +1708,8 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd,
1708 src_name = concat2 (src_name, build_string (".gz")); 1708 src_name = concat2 (src_name, build_string (".gz"));
1709 if (NILP (Ffile_exists_p (src_name))) 1709 if (NILP (Ffile_exists_p (src_name)))
1710 { 1710 {
1711 if (!NILP (find_symbol_value (Qcomp_warning_on_missing_source))) 1711 if (!NILP (find_symbol_value (
1712 Qnative_comp_warning_on_missing_source)))
1712 call2 (intern_c_string ("display-warning"), 1713 call2 (intern_c_string ("display-warning"),
1713 Qcomp, 1714 Qcomp,
1714 CALLN (Fformat, 1715 CALLN (Fformat,