# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 791591555 0
# Node ID a43d97d12de312b7507d45a058579d26744354e5
# Parent  db11ebed6573a7a46721e5522d864ad0cee570ee
[!MULTI_PERDISPLAY] (defvar_display): Use staticpro.

diff -r db11ebed6573 -r a43d97d12de3 src/lread.c
--- a/src/lread.c	Tue Jan 31 20:16:07 1995 +0000
+++ b/src/lread.c	Tue Jan 31 22:32:35 1995 +0000
@@ -1921,6 +1921,9 @@
   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 ()