[!MULTI_PERDISPLAY] (defvar_display): Use staticpro.

diff --git a/src/lread.c b/src/lread.c
index ad8ba2a98388eba37cc347687a9bdeffea0274f9..715fe23c7ad8bfa62df6a0e531edb9bdcee79111 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1921,6 +1921,9 @@ defvar_display (namestring, offset)
   XMISC (val)->type = Lisp_Misc_Display_Objfwd;
   XDISPLAY_OBJFWD (val)->offset = offset;
   XSYMBOL (sym)->value = val;
+#ifndef MULTI_PERDISPLAY
+  staticpro ((Lisp_Object *)((char *)&the_only_perdisplay + offset));
+#endif
 }
 \f
 init_lread ()