[!MULTI_PERDISPLAY] (defvar_display): Use staticpro.

1 files changed, 3 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index ad8ba2a9838..715fe23c7ad 100644
--- 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
 }
 
 init_lread ()