emacs-diffs
[Top][All Lists]
Advanced

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

master e7fd6fe7ec 2/2: Rename `comp--loadable' into `comp--compilable'


From: Andrea Corallo
Subject: master e7fd6fe7ec 2/2: Rename `comp--loadable' into `comp--compilable'
Date: Tue, 1 Feb 2022 05:37:12 -0500 (EST)

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

    Rename `comp--loadable' into `comp--compilable'
    
    * lisp/startup.el (comp--compilable): Rename from `comp--loadable'.
    (startup--require-comp-safely): Update accordingly.
    (startup--honor-delayed-native-compilations): Likewise.
    * src/comp.c (syms_of_comp): Update.
    (maybe_defer_native_compilation): Likewise.
---
 lisp/startup.el | 8 ++++----
 src/comp.c      | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index 7834e10213..aa06125171 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -519,14 +519,14 @@ DIRS are relative."
       xdg-dir)
      (t emacs-d-dir))))
 
-(defvar comp--loadable)
+(defvar comp--compilable)
 (defvar comp--delayed-sources)
 (defun startup--require-comp-safely ()
   "Require the native compiler avoiding circular dependencies."
   (unless (featurep 'native-compile)
-    ;; Require comp with `comp--loadable' set to nil to break
+    ;; Require comp with `comp--compilable' set to nil to break
     ;; circularity.
-    (let ((comp--loadable nil))
+    (let ((comp--compilable nil))
       (require 'comp))
     (native--compile-async comp--delayed-sources nil 'late)
     (setq comp--delayed-sources nil)))
@@ -538,7 +538,7 @@ DIRS are relative."
   (when (and (native-comp-available-p)
              comp--delayed-sources)
     (startup--require-comp-safely))
-  (setq comp--loadable t))
+  (setq comp--compilable t))
 
 (defvar native-comp-eln-load-path)
 (defun normal-top-level ()
diff --git a/src/comp.c b/src/comp.c
index 9342712a38..5efe026b2b 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5129,7 +5129,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
 
   /* This is so deferred compilation is able to compile comp
      dependencies breaking circularity.  */
-  if (comp__loadable)
+  if (comp__compilable)
     {
       /* Startup is done, comp is usable.  */
       CALL0I (startup--require-comp-safely);
@@ -5600,9 +5600,9 @@ syms_of_comp (void)
   DEFVAR_LISP ("comp--delayed-sources", Vcomp__delayed_sources,
               doc: /* List of sources to be native-compiled when startup is 
finished.
 For internal use.  */);
-  DEFVAR_BOOL ("comp--loadable",
-              comp__loadable,
-              doc: /* Non-nil when comp.el can be loaded.
+  DEFVAR_BOOL ("comp--compilable",
+              comp__compilable,
+              doc: /* Non-nil when comp.el can be native compiled.
 For internal use. */);
   /* Compiler control customizes.  */
   DEFVAR_BOOL ("native-comp-deferred-compilation",



reply via email to

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