From d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 15 Dec 2019 16:50:37 +0100 Subject: [PATCH] fix comp--register-subr --- src/comp.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/comp.c b/src/comp.c index 5a001396682..288aa6ccc41 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3282,7 +3282,10 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr, x->s.native_intspec = intspec; x->s.native_doc = doc; x->s.native_elisp = true; - defsubr (x); + XSETPVECTYPE (&x->s, PVEC_SUBR); + Lisp_Object tem; + XSETSUBR (tem, &x->s); + set_symbol_function (name, tem); LOADHIST_ATTACH (Fcons (Qdefun, name)); -- 2.39.5