From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 4 Jan 1995 22:43:47 +0000 (+0000)
Subject: (mark_object, mark_buffer): Don't mark buffer twice.
X-Git-Tag: emacs-19.34~5516
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b552283ca1bcddec62f572d48e1d25faa64d2d0;p=emacs.git

(mark_object, mark_buffer): Don't mark buffer twice.
---

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);