Mercurial > emacs
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; |