From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 15 Dec 2019 15:50:37 +0000 (+0100)
Subject: fix comp--register-subr
X-Git-Tag: emacs-28.0.90~2727^2~914
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c;p=emacs.git

fix comp--register-subr
---

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));