From bb59e7a544c4eb8749c6e46989ceffafc296c7e6 Mon Sep 17 00:00:00 2001
From: Gerd Möllmann
Date: Tue, 11 Jun 2024 11:26:18 +0200
Subject: Use weak vector for buffer markers

---
 src/alloc.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/alloc.c')

diff --git a/src/alloc.c b/src/alloc.c
index c168dc493da..c27c7b0a88d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4155,7 +4155,9 @@ DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
   p->buffer = 0;
   p->bytepos = 0;
   p->charpos = 0;
+#ifndef HAVE_MPS
   p->next = NULL;
+#endif
   p->insertion_type = 0;
   p->need_adjustment = 0;
   return make_lisp_ptr (p, Lisp_Vectorlike);
@@ -4180,8 +4182,12 @@ build_marker (struct buffer *buf, ptrdiff_t charpos, ptrdiff_t bytepos)
   m->bytepos = bytepos;
   m->insertion_type = 0;
   m->need_adjustment = 0;
+#ifdef HAVE_MPS
+  igc_add_marker (buf, m);
+#else
   m->next = BUF_MARKERS (buf);
   BUF_MARKERS (buf) = m;
+#endif
   return make_lisp_ptr (m, Lisp_Vectorlike);
 }
 
-- 
cgit v1.2.1