diff options
author | Richard M. Stallman <[email protected]> | 1994-09-18 08:46:34 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-09-18 08:46:34 +0000 |
commit | bcd40520863a594cacce49e6a9bc682a86cb2032 (patch) | |
tree | a82f9a1a920db4ff8229ef90c393412c5e4798eb /src/buffer.c | |
parent | 5956f71d45bd320eeacdd01925c1f2a150bc2148 (diff) |
(reset_buffer): Don't call reset_buffer_local_variables.
(Fget_buffer_create): Call it here.
(init_buffer_once): And here.
Diffstat (limited to 'src/buffer.c')
-rw-r--r-- | src/buffer.c | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/buffer.c b/src/buffer.c index 8ade7e8219..e132f77da9 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -260,6 +260,7 @@ The value is never nil.") b->undo_list = Qt; reset_buffer (b); + reset_buffer_local_variables (b); /* Put this in the alist of all live buffers. */ XSET (buf, Lisp_Buffer, b); @@ -291,7 +292,8 @@ The value is never nil.") return unbind_to (count, buf); } -/* Reinitialize everything about a buffer except its name and contents. */ +/* Reinitialize everything about a buffer except its name and contents + and local variables. */ void reset_buffer (b) @@ -315,10 +317,13 @@ reset_buffer (b) /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ INITIALIZE_INTERVAL (b, NULL_INTERVAL); - - reset_buffer_local_variables(b); } +/* Reset buffer B's local variables info. + Don't use this on a buffer that has already been in use; + it does not treat permanent locals consistently. + Instead, use Fkill_all_local_variables. */ + reset_buffer_local_variables (b) register struct buffer *b; { @@ -2374,7 +2379,9 @@ init_buffer_once () /* Make sure all markable slots in buffer_defaults are initialized reasonably, so mark_buffer won't choke. */ reset_buffer (&buffer_defaults); + reset_buffer_local_variables (&buffer_defaults); reset_buffer (&buffer_local_symbols); + reset_buffer_local_variables (&buffer_local_symbols); XSET (Vbuffer_defaults, Lisp_Buffer, &buffer_defaults); XSET (Vbuffer_local_symbols, Lisp_Buffer, &buffer_local_symbols); |