From: Eli Zaretskii 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);