Mercurial > emacs
comparison src/lread.c @ 85015:695c195058e7
(defsubr): Use XSETPVECTYPE.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 02 Oct 2007 21:06:16 +0000 |
| parents | 1d35aa875508 |
| children | b98ea218eb70 bdb3fe0ba9fa |
comparison
equal
deleted
inserted
replaced
| 85014:ad5045db16f7 | 85015:695c195058e7 |
|---|---|
| 3670 defsubr (sname) | 3670 defsubr (sname) |
| 3671 struct Lisp_Subr *sname; | 3671 struct Lisp_Subr *sname; |
| 3672 { | 3672 { |
| 3673 Lisp_Object sym; | 3673 Lisp_Object sym; |
| 3674 sym = intern (sname->symbol_name); | 3674 sym = intern (sname->symbol_name); |
| 3675 XSETPVECTYPE (sname, PVEC_SUBR); | |
| 3675 XSETSUBR (XSYMBOL (sym)->function, sname); | 3676 XSETSUBR (XSYMBOL (sym)->function, sname); |
| 3676 } | 3677 } |
| 3677 | 3678 |
| 3678 #ifdef NOTDEF /* use fset in subr.el now */ | 3679 #ifdef NOTDEF /* use fset in subr.el now */ |
| 3679 void | 3680 void |