Mercurial > emacs
changeset 1009:bf78b5ea9b3a
* lread.c (defvar_per_buffer): Support new TYPE argument, by
setting the appropriate slot in buffer_local_types.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 19 Aug 1992 06:33:16 +0000 |
| parents | f1df63f98e5c |
| children | b6a67ffc7536 |
| files | src/lread.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 */