mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

fix comp--register-subr

Browse source
This commit is contained in:
Andrea Corallo 2019-12-15 16:50:37 +01:00
parent d0173ecd0c
commit d0fcb15fa9
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/comp.c
View file

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