Commit 4360b0c6 authored by Jim Blandy's avatar Jim Blandy

* lread.c (defvar_per_buffer): Support new TYPE argument, by

	setting the appropriate slot in buffer_local_types.
parent 8ea0a720
......@@ -1472,9 +1472,10 @@ defvar_lisp_nopro (namestring, address, doc)
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 @@ defvar_per_buffer (namestring, address, doc)
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 */
......
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