comparison src/alloc.c @ 19621:74151390752c

(free_marker): Call unchain_marker.
author Richard M. Stallman <rms@gnu.org>
date Fri, 29 Aug 1997 19:52:57 +0000
parents 58f14958f5d5
children 81957e8b80e2
comparison
equal deleted inserted replaced
19620:7fccc0f34e57 19621:74151390752c
1042 /* Put MARKER back on the free list after using it temporarily. */ 1042 /* Put MARKER back on the free list after using it temporarily. */
1043 1043
1044 free_marker (marker) 1044 free_marker (marker)
1045 Lisp_Object marker; 1045 Lisp_Object marker;
1046 { 1046 {
1047 unchain_marker (marker);
1048
1047 XMISC (marker)->u_marker.type = Lisp_Misc_Free; 1049 XMISC (marker)->u_marker.type = Lisp_Misc_Free;
1048 XMISC (marker)->u_free.chain = marker_free_list; 1050 XMISC (marker)->u_free.chain = marker_free_list;
1049 marker_free_list = XMISC (marker); 1051 marker_free_list = XMISC (marker);
1050 1052
1051 total_free_markers++; 1053 total_free_markers++;