diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-10-12 22:11:06 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-10-14 11:04:36 +0200 |
| commit | 8861ee8b087b4e5d9ac9186a2c2d8e44b07fc186 (patch) | |
| tree | cdee0aeb80bbbc7454bbe6475a743bfd12ee9ae8 /src/comp.h | |
| parent | 4bea0c0b1d907d676cc9abc8d7048103c10b8d79 (diff) | |
| download | emacs-8861ee8b087b4e5d9ac9186a2c2d8e44b07fc186.tar.gz | |
Have `native-elisp-load' return the last registerd function
* lisp/emacs-lisp/comp.el (comp-emit-for-top-level): Synthesize
'top_level_run' so it returns the last value returned by
`comp--register-subr'.
* src/comp.c (load_comp_unit): Return what 'top_level_run'
returns.
(Fnative_elisp_load): Return what 'load_comp_unit' returns.
* src/comp.h (load_comp_unit): Update signature.
Diffstat (limited to 'src/comp.h')
| -rw-r--r-- | src/comp.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/comp.h b/src/comp.h index 5c7bed6a304..077250ea869 100644 --- a/src/comp.h +++ b/src/comp.h @@ -75,8 +75,8 @@ XNATIVE_COMP_UNIT (Lisp_Object a) extern void hash_native_abi (void); -extern void load_comp_unit (struct Lisp_Native_Comp_Unit *comp_u, - bool loading_dump, bool late_load); +extern Lisp_Object load_comp_unit (struct Lisp_Native_Comp_Unit *comp_u, + bool loading_dump, bool late_load); extern Lisp_Object native_function_doc (Lisp_Object function); |