(free_marker): Call unchain_marker.

5c5631cf · Richard M. Stallman · d910f08c · 5c5631cf
Commit 5c5631cf authored Aug 29, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

src/alloc.c src/alloc.c +2 -0

No files found.
--- 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);