From: Kim F. Storm <storm@cua.dk>
Date: Mon, 17 May 2004 15:20:16 +0000 (+0000)
Subject: (mark_object): Mark Lisp_Misc_Free cell.  Fix comment.
X-Git-Tag: ttn-vms-21-2-B4~6185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d080618c7efba88e91bb3d3c9bbc318a17506f86;p=emacs.git

(mark_object): Mark Lisp_Misc_Free cell.  Fix comment.
---

diff --git a/src/alloc.c b/src/alloc.c
index dd4823bd9e3..c38376d80bc 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4979,10 +4979,9 @@ mark_object (arg)
       if (XMISCTYPE (obj) == Lisp_Misc_Free)
 	{
 	  /* This is (probably) a freed marker which may still exist on
-	     a buffer undo list, so accept it here.  */
-	  /* If we reuse the marker, and it still exists on the undo
-	     list, and we do undo, behaviour is unpredictable --
-	     but at least we don't crash here.  KFS 2004-05-17 */
+	     a buffer undo list, so accept it here, as check below will
+	     fail (not live).  KFS 2004-05-17 */
+	  XMARKER (obj)->gcmarkbit = 1;
 	  break;
 	}
       CHECK_ALLOCATED_AND_LIVE (live_misc_p);