summaryrefslogtreecommitdiff
path: root/src/lread.c
diff options
context:
space:
mode:
authorAndrea Corallo <akrl@sdf.org>2019-12-14 09:28:12 +0100
committerAndrea Corallo <akrl@sdf.org>2020-01-01 11:38:13 +0100
commit694ece772220346aef12520bc66ca401d08809bb (patch)
tree01a29820fbb8ab0e2567f47b48b39f010107283b /src/lread.c
parent740462da6153b111a8196b003791a55c7f7fa878 (diff)
downloademacs-694ece772220346aef12520bc66ca401d08809bb.tar.gz
emacs-694ece772220346aef12520bc66ca401d08809bb.tar.bz2
emacs-694ece772220346aef12520bc66ca401d08809bb.zip
reworking relocation mechanism to use one single table
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c
index f280dad97c0..1ba04835aa1 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4465,6 +4465,9 @@ defsubr (union Aligned_Lisp_Subr *aname)
XSETPVECTYPE (sname, PVEC_SUBR);
XSETSUBR (tem, sname);
set_symbol_function (sym, tem);
+#ifdef HAVE_NATIVE_COMP
+ Vsubr_list = Fcons (tem, Vsubr_list);
+#endif /* HAVE_NATIVE_COMP */
}
#ifdef NOTDEF /* Use fset in subr.el now! */