comparison src/lread.c @ 10616:a43d97d12de3

[!MULTI_PERDISPLAY] (defvar_display): Use staticpro.
author Karl Heuer <kwzh@gnu.org>
date Tue, 31 Jan 1995 22:32:35 +0000
parents 97b210b19217
children 050a2d62d186
comparison
equal deleted inserted replaced
10615:db11ebed6573 10616:a43d97d12de3
1919 sym = intern (namestring); 1919 sym = intern (namestring);
1920 val = allocate_misc (); 1920 val = allocate_misc ();
1921 XMISC (val)->type = Lisp_Misc_Display_Objfwd; 1921 XMISC (val)->type = Lisp_Misc_Display_Objfwd;
1922 XDISPLAY_OBJFWD (val)->offset = offset; 1922 XDISPLAY_OBJFWD (val)->offset = offset;
1923 XSYMBOL (sym)->value = val; 1923 XSYMBOL (sym)->value = val;
1924 #ifndef MULTI_PERDISPLAY
1925 staticpro ((Lisp_Object *)((char *)&the_only_perdisplay + offset));
1926 #endif
1924 } 1927 }
1925 1928
1926 init_lread () 1929 init_lread ()
1927 { 1930 {
1928 char *normal; 1931 char *normal;