From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 28 Jan 2022 07:37:28 +0000 (+0200)
Subject: ; Rename 'startup--require-comp-safetly'
X-Git-Tag: emacs-29.0.90~2693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b293e254ebe1eaaa3b1866d319c8ee8973e6c2ea;p=emacs.git

; 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.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index f4216f7c4cb..60aaa76002f 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 66288988fd8..56e583eb5c8 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);