diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-19 06:33:16 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-19 06:33:16 +0000 |
| commit | 4360b0c609214f9ce18d3c7db3d696a1e2f26272 (patch) | |
| tree | 27426f6c3175fbd6cbab27f6cc4ae8aca056ebe3 /src/lread.c | |
| parent | 8ea0a72039d74ed3bddc5d184d9990462a032e08 (diff) | |
| download | emacs-4360b0c609214f9ce18d3c7db3d696a1e2f26272.tar.gz | |
* lread.c (defvar_per_buffer): Support new TYPE argument, by
setting the appropriate slot in buffer_local_types.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index c57192d6a09..60e060644b3 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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 */ |