From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 31 Jan 1995 22:32:35 +0000 (+0000)
Subject: [!MULTI_PERDISPLAY] (defvar_display): Use staticpro.
X-Git-Tag: emacs-19.34~5242
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=576a945c45000db6a2e0275df4c5332a74df8ca2;p=emacs.git

[!MULTI_PERDISPLAY] (defvar_display): Use staticpro.
---

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 ()