From 6b552283ca1bcddec62f572d48e1d25faa64d2d0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 4 Jan 1995 22:43:47 +0000 Subject: [PATCH] (mark_object, mark_buffer): Don't mark buffer twice. --- src/alloc.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index 4fe59ae934..044356914e 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); -- 2.39.2