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

* src/undo.c (scrub_undo_list): If possible, avoid mutation.

Browse source
This commit is contained in:
Helmut Eller 2026-06-15 22:33:30 +02:00
parent 8f04fd5d86
commit 195d68f101
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/undo.c
View file

@ -193,7 +193,8 @@ scrub_undo_list (Lisp_Object list)
Lisp_Object head = Fnthcdr (make_fixnum (4), entry);
Lisp_Object pairs
= scrub_id_offset_pairs (htab, XCDR (head));
XSETCDR (head, pairs);
if (pairs != XCDR (head))
XSETCDR (head, pairs);
drop = NILP (pairs);
}
if (drop)