Commit 5c5631cf authored by Richard M. Stallman's avatar Richard M. Stallman

(free_marker): Call unchain_marker.

parent d910f08c
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment