From 417c07ecdcdcab38c6fe733084ee35da3f8098ac Mon Sep 17 00:00:00 2001
From: Helmut Eller <eller.helmut@gmail.com>
Date: Fri, 26 Apr 2024 22:33:04 +0200
Subject: [PATCH] Staticpro more global vars in xdisp.c

---
 src/xdisp.c | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/src/xdisp.c b/src/xdisp.c
index 5fe16ab9536..4d33052d063 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -500,6 +500,9 @@ Copyright (C) 1985-2024 Free Software Foundation, Inc.
 #ifdef HAVE_WINDOW_SYSTEM
 #include TERM_HEADER
 #endif /* HAVE_WINDOW_SYSTEM */
+#ifdef HAVE_MPS
+#include "igc.h"
+#endif
 
 #ifndef FRAME_OUTPUT_DATA
 #define FRAME_OUTPUT_DATA(f) (NULL)
@@ -37391,6 +37394,37 @@ syms_of_xdisp (void)
   staticpro (&previous_help_echo_string);
   help_echo_pos = -1;
 
+#ifdef HAVE_MPS
+  this_line_buffer = NULL;
+  igc_root_create_exact_ptr (&this_line_buffer);
+  {
+    size_t len = (sizeof default_invis_vector
+		  / sizeof (default_invis_vector[0]));
+    for (size_t i = 0; i < len; i++)
+      {
+	default_invis_vector[i] = Qnil;
+	staticpro (&default_invis_vector[i]);
+      }
+  }
+  echo_area_window = Qnil;
+  staticpro (&echo_area_window);
+  {
+    size_t len = sizeof (scratch_glyphs) / sizeof (scratch_glyphs[0]);
+    for (size_t i = 0; i < len; i++)
+      {
+	Lisp_Object *ptr = &scratch_glyphs[i].object;
+	*ptr = Qnil;
+	staticpro (ptr);
+      }
+  }
+  displayed_buffer = NULL;
+  igc_root_create_exact_ptr (&displayed_buffer);
+  last_escape_glyph_frame = NULL;
+  igc_root_create_exact_ptr (&last_escape_glyph_frame);
+  last_glyphless_glyph_frame = NULL;
+  igc_root_create_exact_ptr (&last_glyphless_glyph_frame);
+#endif /* HAVE_MPS */
+
   DEFSYM (Qright_to_left, "right-to-left");
   DEFSYM (Qleft_to_right, "left-to-right");
   defsubr (&Sbidi_resolved_levels);
-- 
2.39.2