procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/comp.c (native-comp-unit-set-file): New function.

Browse source
This commit is contained in:
Andrea Corallo 2020-04-10 22:24:07 +01:00
parent 62f956970f
commit d85b803b78
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/data.c
View file

@ -884,9 +884,19 @@ DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
Snative_comp_unit_file, 1, 1, 0,
doc: /* Return the file of the native compilation unit. */)
(Lisp_Object comp_unit)
{
CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
return XNATIVE_COMP_UNIT (comp_unit)->file;
}
DEFUN ("native-comp-unit-set-file", Fnative_comp_unit_set_file,
Snative_comp_unit_set_file, 2, 2, 0,
doc: /* Return the file of the native compilation unit. */)
(Lisp_Object comp_unit, Lisp_Object new_file)
{
CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
XNATIVE_COMP_UNIT (comp_unit)->file = new_file;
return comp_unit;
}
#endif
@ -4007,6 +4017,7 @@ syms_of_data (void)
defsubr (&Ssubr_native_elisp_p);
defsubr (&Ssubr_native_comp_unit);
defsubr (&Snative_comp_unit_file);
defsubr (&Snative_comp_unit_set_file);
#endif
#ifdef HAVE_MODULES
defsubr (&Suser_ptrp);