Commit 5a6891e2 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(defsubr): Use XSETPVECTYPE.

parent 0754c46a
......@@ -3672,6 +3672,7 @@ defsubr (sname)
{
Lisp_Object sym;
sym = intern (sname->symbol_name);
XSETPVECTYPE (sname, PVEC_SUBR);
XSETSUBR (XSYMBOL (sym)->function, sname);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment