diff options
| author | Lars Ingebrigtsen | 2022-07-12 14:39:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-07-12 14:39:52 +0200 |
| commit | f62e1f39be4f7da2c78d884db6ecb68a9f5b1982 (patch) | |
| tree | 6fa77c6e18daece3e1342cec715a5d05ada0b0de /src/buffer.c | |
| parent | 227f3842c29f1991388ce518645baac412cf1f56 (diff) | |
| download | emacs-f62e1f39be4f7da2c78d884db6ecb68a9f5b1982.tar.gz emacs-f62e1f39be4f7da2c78d884db6ecb68a9f5b1982.zip | |
Fix buffer-stale-function fix
* src/buffer.c (Fmake_indirect_buffer): Kill the local
buffer-stale-function variable instead of setting it
buffer-locally to the default value. This should have the same
effect, but is less confusing.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/buffer.c b/src/buffer.c index a6d3604065e..e5fa09a9789 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -912,7 +912,7 @@ does not run the hooks `kill-buffer-hook', | |||
| 912 | Fset (intern ("buffer-save-without-query"), Qnil); | 912 | Fset (intern ("buffer-save-without-query"), Qnil); |
| 913 | Fset (intern ("buffer-file-number"), Qnil); | 913 | Fset (intern ("buffer-file-number"), Qnil); |
| 914 | if (!NILP (Flocal_variable_p (Qbuffer_stale_function, base_buffer))) | 914 | if (!NILP (Flocal_variable_p (Qbuffer_stale_function, base_buffer))) |
| 915 | Fset (Qbuffer_stale_function, Qbuffer_stale__default_function); | 915 | Fkill_local_variable (Qbuffer_stale_function); |
| 916 | /* Cloned buffers need extra setup, to do things such as deep | 916 | /* Cloned buffers need extra setup, to do things such as deep |
| 917 | variable copies for list variables that might be mangled due | 917 | variable copies for list variables that might be mangled due |
| 918 | to destructive operations in the indirect buffer. */ | 918 | to destructive operations in the indirect buffer. */ |
| @@ -6480,7 +6480,6 @@ will run for `clone-indirect-buffer' calls as well. */); | |||
| 6480 | DEFSYM (Qkill_buffer__possibly_save, "kill-buffer--possibly-save"); | 6480 | DEFSYM (Qkill_buffer__possibly_save, "kill-buffer--possibly-save"); |
| 6481 | 6481 | ||
| 6482 | DEFSYM (Qbuffer_stale_function, "buffer-stale-function"); | 6482 | DEFSYM (Qbuffer_stale_function, "buffer-stale-function"); |
| 6483 | DEFSYM (Qbuffer_stale__default_function, "buffer-stale--default-function"); | ||
| 6484 | 6483 | ||
| 6485 | Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt); | 6484 | Fput (intern_c_string ("erase-buffer"), Qdisabled, Qt); |
| 6486 | } | 6485 | } |