(free_marker): Call unchain_marker.

1997-08-29 19:52:57 +00:00
parent d910f08cc1
commit 5c5631cf9b
1 changed files with 2 additions and 0 deletions
--- 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);