aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorAndrea Corallo2020-04-06 18:03:34 +0100
committerAndrea Corallo2020-04-12 13:31:38 +0100
commit62f956970f5fe4b180ca57b290594530386d8b02 (patch)
treeffebfe7113ea3366eefb631884c9f3cd85baf62b /src/data.c
parent4abb8c822ce02cf33712bd2699c5b77a5db49e31 (diff)
downloademacs-62f956970f5fe4b180ca57b290594530386d8b02.tar.gz
emacs-62f956970f5fe4b180ca57b290594530386d8b02.zip
* src/comp.c (native-comp-unit-file): Better parameter name.
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c
index b53b8409b59..2040e4eaecd 100644
--- a/src/data.c
+++ b/src/data.c
@@ -883,11 +883,12 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
883DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, 883DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
884 Snative_comp_unit_file, 1, 1, 0, 884 Snative_comp_unit_file, 1, 1, 0,
885 doc: /* Return the file of the native compilation unit. */) 885 doc: /* Return the file of the native compilation unit. */)
886 (Lisp_Object object) 886 (Lisp_Object comp_unit)
887{ 887{
888 CHECK_TYPE (NATIVE_COMP_UNITP (object), Qnative_comp_unit, object); 888 CHECK_TYPE (NATIVE_COMP_UNITP (comp_unit), Qnative_comp_unit, comp_unit);
889 return XNATIVE_COMP_UNIT (object)->file; 889 XNATIVE_COMP_UNIT (comp_unit)->file = new_file;
890} 890}
891
891#endif 892#endif
892 893
893DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0, 894DEFUN ("interactive-form", Finteractive_form, Sinteractive_form, 1, 1, 0,