emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 901ce56 15/16: Rename comp-warning-on-missing-source


From: Andrea Corallo
Subject: master 901ce56 15/16: Rename comp-warning-on-missing-source
Date: Thu, 6 May 2021 11:16:26 -0400 (EDT)

branch: master
commit 901ce566037b27233b907a51a9cbd330c77830ba
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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.
---
 lisp/emacs-lisp/comp.el | 2 +-
 src/comp.c              | 3 ++-
 src/lread.c             | 3 ++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 2b00faa..434e0fb 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -178,7 +178,7 @@ the .eln output directory."
   :type 'boolean
   :version "28.1")
 
-(defcustom comp-warning-on-missing-source t
+(defcustom native-comp-warning-on-missing-source t
   "Emit a warning if a byte-code file being loaded has no corresponding source.
 The source file is necessary for native code file look-up and deferred
 compilation mechanism."
diff --git a/src/comp.c b/src/comp.c
index 9173dde..5cf9476 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5272,7 +5272,8 @@ compiled one.  */);
   DEFSYM (Qlambda_fixup, "lambda-fixup");
   DEFSYM (Qgccjit, "gccjit");
   DEFSYM (Qcomp_subr_trampoline_install, "comp-subr-trampoline-install");
-  DEFSYM (Qcomp_warning_on_missing_source, "comp-warning-on-missing-source");
+  DEFSYM (Qnative_comp_warning_on_missing_source,
+         "native-comp-warning-on-missing-source");
 
   /* To be signaled by the compiler.  */
   DEFSYM (Qnative_compiler_error, "native-compiler-error");
diff --git a/src/lread.c b/src/lread.c
index e53e1f6..12e4ca6 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,
       src_name = concat2 (src_name, build_string (".gz"));
       if (NILP (Ffile_exists_p (src_name)))
        {
-         if (!NILP (find_symbol_value (Qcomp_warning_on_missing_source)))
+         if (!NILP (find_symbol_value (
+                      Qnative_comp_warning_on_missing_source)))
            call2 (intern_c_string ("display-warning"),
                   Qcomp,
                   CALLN (Fformat,



reply via email to

[Prev in Thread] Current Thread [Next in Thread]