diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-12-15 16:50:37 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:13 +0100 |
| commit | d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c (patch) | |
| tree | ae0a3f461f86b3c2fcc745ff8c8476a065281af3 /src | |
| parent | d0173ecd0ce8c2ac458cd84c25216f59f3fc9889 (diff) | |
fix comp--register-subr
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 5 |
1 files changed, 4 insertions, 1 deletions
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)); |