# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 714205996 0
# Node ID bf78b5ea9b3abe7fdbf04b3daad941baa51cc4e2
# Parent  f1df63f98e5c71012fd824cb9d5f38d7e6643d16
	* lread.c (defvar_per_buffer): Support new TYPE argument, by
	setting the appropriate slot in buffer_local_types.

diff -r f1df63f98e5c -r bf78b5ea9b3a src/lread.c
--- a/src/lread.c	Wed Aug 19 06:31:34 1992 +0000
+++ b/src/lread.c	Wed Aug 19 06:33:16 1992 +0000
@@ -1472,9 +1472,10 @@
  the current buffer.  address is the address of the slot in the buffer that is current now. */
 
 void
-defvar_per_buffer (namestring, address, doc)
+defvar_per_buffer (namestring, address, type, doc)
      char *namestring;
      Lisp_Object *address;
+     Lisp_Object type;
      char *doc;
 {
   Lisp_Object sym;
@@ -1487,6 +1488,7 @@
   XSET (XSYMBOL (sym)->value, Lisp_Buffer_Objfwd,
 	(Lisp_Object *) offset);
   *(Lisp_Object *)(offset + (char *)&buffer_local_symbols) = sym;
+  *(Lisp_Object *)(offset + (char *)&buffer_local_types) = type;
   if (*(int *)(offset + (char *)&buffer_local_flags) == 0)
     /* Did a DEFVAR_PER_BUFFER without initializing the corresponding
        slot of buffer_local_flags */