mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 12:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(free_marker): Call unchain_marker.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-29 19:52:57 +00:00
parent d910f08cc1
commit 5c5631cf9b
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/alloc.c
View file

@ -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);