From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Aug 1997 19:52:57 +0000 (+0000)
Subject: (free_marker): Call unchain_marker.
X-Git-Tag: emacs-20.1~327
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c5631cf9b0ccff4250cb98cd8fb93bcbae2e716;p=emacs.git

(free_marker): Call unchain_marker.
---

diff --git a/src/alloc.c b/src/alloc.c
index b488a28309c..b5a45fd3845 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1044,6 +1044,8 @@ DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
 free_marker (marker)
      Lisp_Object marker;
 {
+  unchain_marker (marker);
+
   XMISC (marker)->u_marker.type = Lisp_Misc_Free;
   XMISC (marker)->u_free.chain = marker_free_list;
   marker_free_list = XMISC (marker);