scratch/igc 3d370cf2e56: Staticpro more global vars in xdisp.c

[Gerd Moellmann]

branch: scratch/igc
commit 3d370cf2e56abb57ae57c8cd9b2941319d3ec445
Author: Helmut Eller <eller.helmut@gmail.com>
Commit: Gerd Möllmann <gerd@gnu.org>

    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 @@ along with GNU Emacs.  If not, see 
<https://www.gnu.org/licenses/>.  */
 #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 @@ doesn't exist, it will be created and put into
   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);