From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 2 Oct 2007 21:09:17 +0000 (+0000)
Subject: (Fget_buffer_create, init_buffer_once): Use XSETPVECTYPE.
X-Git-Tag: emacs-pretest-23.0.90~10542
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf00e751e15a327f5cf3d4953ed658aa6ec670a6;p=emacs.git

(Fget_buffer_create, init_buffer_once): Use XSETPVECTYPE.
---

diff --git a/src/buffer.c b/src/buffer.c
index bdb13adcba8..3677ec671f2 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -429,6 +429,7 @@ The value is never nil.  */)
   b->name = name;
 
   /* Put this in the alist of all live buffers.  */
+  XSETPVECTYPE (b, PVEC_BUFFER);
   XSETBUFFER (buf, b);
   Vbuffer_alist = nconc2 (Vbuffer_alist, Fcons (Fcons (name, buf), Qnil));
 
@@ -5036,7 +5037,9 @@ init_buffer_once ()
   buffer_local_symbols.text = &buffer_local_symbols.own_text;
   BUF_INTERVALS (&buffer_defaults) = 0;
   BUF_INTERVALS (&buffer_local_symbols) = 0;
+  XSETPVECTYPE (&buffer_defaults, PVEC_BUFFER);
   XSETBUFFER (Vbuffer_defaults, &buffer_defaults);
+  XSETPVECTYPE (&buffer_local_symbols, PVEC_BUFFER);
   XSETBUFFER (Vbuffer_local_symbols, &buffer_local_symbols);
 
   /* Set up the default values of various buffer slots.  */