begin_group

buffer: Text_Buffer;
defer free_buffer(*buffer);
set_text(*buffer, "ab");
begin_group(*buffer);
insert(*buffer, 0, "x");
insert(*buffer, 3, "y");
end_group(*buffer);
undo(*buffer);
assert(buffer_to_string(*buffer, temp) == "ab");