aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c
index 3fb0fc0a190..d20db4dc3a3 100644
--- a/src/data.c
+++ b/src/data.c
@@ -881,7 +881,7 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit,
881 (Lisp_Object subr) 881 (Lisp_Object subr)
882{ 882{
883 CHECK_SUBR (subr); 883 CHECK_SUBR (subr);
884 return XSUBR (subr)->native_comp_u; 884 return XSUBR (subr)->native_comp_u[0];
885} 885}
886 886
887DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, 887DEFUN ("native-comp-unit-file", Fnative_comp_unit_file,
@@ -919,10 +919,9 @@ Value, if non-nil, is a list (interactive SPEC). */)
919 919
920 if (SUBRP (fun)) 920 if (SUBRP (fun))
921 { 921 {
922#ifdef HAVE_NATIVE_COMP
923 if (SUBRP_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec) 922 if (SUBRP_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec)
924 return XSUBR (fun)->native_intspec; 923 return XSUBR (fun)->native_intspec;
925#endif 924
926 const char *spec = XSUBR (fun)->intspec; 925 const char *spec = XSUBR (fun)->intspec;
927 if (spec) 926 if (spec)
928 return list2 (Qinteractive, 927 return list2 (Qinteractive,