diff options
| author | Andrea Corallo | 2021-05-06 15:00:00 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2021-05-06 17:16:09 +0200 |
| commit | 901ce566037b27233b907a51a9cbd330c77830ba (patch) | |
| tree | 672a982081f17b1b1368ba775c643cc71fe4edc5 /src | |
| parent | 8c429a42c4ad8137dc932d5ba0f2f5c7bd8f7799 (diff) | |
| download | emacs-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.c | 3 | ||||
| -rw-r--r-- | src/lread.c | 3 |
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, |