diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-01-04 22:43:47 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-01-04 22:43:47 +0000 |
| commit | 6b552283ca1bcddec62f572d48e1d25faa64d2d0 (patch) | |
| tree | 85a5eae8904bf8a0bd93aed6e3d6753a1284364e /src/alloc.c | |
| parent | 177efd15635f88108eac2d34d251ad0ca09ad79f (diff) | |
| download | emacs-6b552283ca1bcddec62f572d48e1d25faa64d2d0.tar.gz emacs-6b552283ca1bcddec62f572d48e1d25faa64d2d0.tar.bz2 emacs-6b552283ca1bcddec62f572d48e1d25faa64d2d0.zip | |
(mark_object, mark_buffer): Don't mark buffer twice.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 4fe59ae9346..044356914e5 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1524,7 +1524,10 @@ mark_object (objptr) case Lisp_Vectorlike: if (GC_BUFFERP (obj)) - mark_buffer (obj); + { + if (!XMARKBIT (XBUFFER (obj)->name)) + mark_buffer (obj); + } else if (GC_SUBRP (obj)) break; else if (GC_COMPILEDP (obj)) @@ -1753,7 +1756,7 @@ mark_buffer (buf) mark_object (ptr); /* If this is an indirect buffer, mark its base buffer. */ - if (buffer->base_buffer) + if (buffer->base_buffer && !XMARKBIT (buffer->base_buffer->name)) { XSETBUFFER (base_buffer, buffer->base_buffer); mark_buffer (base_buffer); |