emacs-diffs
[Top][All Lists]
Advanced

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

master b293e254eb: ; Rename 'startup--require-comp-safetly'


From: Eli Zaretskii
Subject: master b293e254eb: ; Rename 'startup--require-comp-safetly'
Date: Fri, 28 Jan 2022 02:38:21 -0500 (EST)

branch: master
commit b293e254ebe1eaaa3b1866d319c8ee8973e6c2ea
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; Rename 'startup--require-comp-safetly'
    
    * src/comp.c (maybe_defer_native_compilation):
    * lisp/startup.el (startup--require-comp-safely): Rename from
    'startup--require-comp-safetly'.  All callers changed.
---
 lisp/startup.el | 4 ++--
 src/comp.c      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/startup.el b/lisp/startup.el
index f4216f7c4c..60aaa76002 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -521,7 +521,7 @@ DIRS are relative."
 
 (defvar comp--loadable)
 (defvar comp--delayed-sources)
-(defun startup--require-comp-safetly ()
+(defun startup--require-comp-safely ()
   "Require the native compiler avoiding circular dependencies."
   (unless (featurep 'comp)
     ;; Require comp with `comp--loadable' set to nil to break
@@ -537,7 +537,7 @@ DIRS are relative."
   "Honor pending delayed deferred native compilations."
   (when (and (native-comp-available-p)
              comp--delayed-sources)
-    (startup--require-comp-safetly))
+    (startup--require-comp-safely))
   (setq comp--loadable t))
 
 (defvar native-comp-eln-load-path)
diff --git a/src/comp.c b/src/comp.c
index 66288988fd..56e583eb5c 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -5132,7 +5132,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
   if (comp__loadable)
     {
       /* Startup is done, comp is usable.  */
-      CALL0I(startup--require-comp-safetly);
+      CALL0I (startup--require-comp-safely);
       Fputhash (function_name, definition, Vcomp_deferred_pending_h);
       CALLN (Ffuncall, intern_c_string ("native--compile-async"),
             src, Qnil, Qlate);



reply via email to

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