(clone_per_buffer_values): Skip `name'.

This commit is contained in:
Stefan Monnier
2008-06-11 16:25:03 +00:00
parent f7ed19a3ee
commit 4b7cdc0edd
2 changed files with 9 additions and 1 deletions

View File

@@ -496,12 +496,16 @@ clone_per_buffer_values (from, to)
/* buffer-local Lisp variables start at `undo_list',
tho only the ones from `name' on are GC'd normally. */
for (offset = PER_BUFFER_VAR_OFFSET (undo_list) + sizeof (Lisp_Object);
for (offset = PER_BUFFER_VAR_OFFSET (undo_list);
offset < sizeof *to;
offset += sizeof (Lisp_Object))
{
Lisp_Object obj;
/* Don't touch the `name' which should be unique for every buffer. */
if (offset == PER_BUFFER_VAR_OFFSET (name))
continue;
obj = PER_BUFFER_VALUE (from, offset);
if (MARKERP (obj))
{