emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Restore current buffer after clone-indirect-buffer-hook errors

Browse source 
* src/buffer.c (Fmake_indirect_buffer): Replace
set_buffer_internal_1 with specpdl unwind in the clone path
(bug#81504).

Copyright-paperwork-exempt: yes
This commit is contained in:
Donjuanplatinum 2026-07-28 01:25:56 +08:00 committed by Sean Whitton
parent b21266e4cb
commit c6e2bd3e3b
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/buffer.c
View file

@ -937,7 +937,7 @@ Interactively, CLONE and INHIBIT-BUFFER-HOOKS are nil. */)
}
else
{
struct buffer *old_b = current_buffer;
specpdl_ref count = SPECPDL_INDEX ();
clone_per_buffer_values (b->base_buffer, b);
bset_filename (b, Qnil);
@ -946,6 +946,7 @@ Interactively, CLONE and INHIBIT-BUFFER-HOOKS are nil. */)
bset_backed_up (b, Qnil);
bset_local_minor_modes (b, Qnil);
bset_auto_save_file_name (b, Qnil);
record_unwind_current_buffer ();
set_buffer_internal_1 (b);
Fset (Qbuffer_save_without_query, Qnil);
Fset (Qbuffer_file_number, Qnil);
@ -955,7 +956,7 @@ Interactively, CLONE and INHIBIT-BUFFER-HOOKS are nil. */)
variable copies for list variables that might be mangled due
to destructive operations in the indirect buffer. */
run_hook (Qclone_indirect_buffer_hook);
set_buffer_internal_1 (old_b);
unbind_to (count, Qnil);
}
run_buffer_list_update_hook (b);