martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Rename 'startup--require-comp-safetly'

Browse Source 
* src/comp.c (maybe_defer_native_compilation):
* lisp/startup.el (startup--require-comp-safely): Rename from
'startup--require-comp-safetly'.  All callers changed.
This commit is contained in:
Eli Zaretskii
2022-01-28 09:37:28 +02:00
parent 241f2857f1
commit b293e254eb
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/startup.el
View File

@@ -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)

2
src/comp.c
View File

@@ -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);