From 576a945c45000db6a2e0275df4c5332a74df8ca2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 31 Jan 1995 22:32:35 +0000 Subject: [!MULTI_PERDISPLAY] (defvar_display): Use staticpro. --- src/lread.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src') diff --git a/src/lread.c b/src/lread.c index ad8ba2a983..715fe23c7a 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 () -- cgit v1.2.3