diff options
| author | Andrea Corallo | 2019-12-15 16:50:37 +0100 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:38:13 +0100 |
| commit | d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c (patch) | |
| tree | ae0a3f461f86b3c2fcc745ff8c8476a065281af3 /src/comp.c | |
| parent | d0173ecd0ce8c2ac458cd84c25216f59f3fc9889 (diff) | |
| download | emacs-d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c.tar.gz emacs-d0fcb15fa9858eb600b0a8f35ebbdf5aadc2cd7c.zip | |
fix comp--register-subr
Diffstat (limited to 'src/comp.c')
| -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, | |||
| 3282 | x->s.native_intspec = intspec; | 3282 | x->s.native_intspec = intspec; |
| 3283 | x->s.native_doc = doc; | 3283 | x->s.native_doc = doc; |
| 3284 | x->s.native_elisp = true; | 3284 | x->s.native_elisp = true; |
| 3285 | defsubr (x); | 3285 | XSETPVECTYPE (&x->s, PVEC_SUBR); |
| 3286 | Lisp_Object tem; | ||
| 3287 | XSETSUBR (tem, &x->s); | ||
| 3288 | set_symbol_function (name, tem); | ||
| 3286 | 3289 | ||
| 3287 | LOADHIST_ATTACH (Fcons (Qdefun, name)); | 3290 | LOADHIST_ATTACH (Fcons (Qdefun, name)); |
| 3288 | 3291 | ||