diff options
| author | Richard M. Stallman | 1997-08-29 19:52:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-29 19:52:57 +0000 |
| commit | 5c5631cf9b0ccff4250cb98cd8fb93bcbae2e716 (patch) | |
| tree | 434e8b9d9db0e482981a1eab14244805f85491b9 /src | |
| parent | d910f08cc1461bc7b6fd91668b4850787eb36795 (diff) | |
| download | emacs-5c5631cf9b0ccff4250cb98cd8fb93bcbae2e716.tar.gz emacs-5c5631cf9b0ccff4250cb98cd8fb93bcbae2e716.zip | |
(free_marker): Call unchain_marker.
Diffstat (limited to 'src')
| -rw-r--r-- | src/alloc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index b488a28309c..b5a45fd3845 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -1044,6 +1044,8 @@ DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0, | |||
| 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); |