diff options
| author | Stefan Monnier | 2007-10-02 21:06:16 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-10-02 21:06:16 +0000 |
| commit | 5a6891e297787d42e24d0ce013baf907c1889d73 (patch) | |
| tree | de77ece8301fb1d81ab283f5dcb6761f0d0e4ce5 /src | |
| parent | 0754c46a89138d5ef204e571b4c2ca92d59fc93d (diff) | |
| download | emacs-5a6891e297787d42e24d0ce013baf907c1889d73.tar.gz emacs-5a6891e297787d42e24d0ce013baf907c1889d73.zip | |
(defsubr): Use XSETPVECTYPE.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 189fcc0977f..ae02b454333 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -3672,6 +3672,7 @@ defsubr (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 | ||