mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-12 22:40:46 -08:00
Code Issues Projects Releases Wiki Activity

Staticpro more global vars in xdisp.c

Browse source
This commit is contained in:
Helmut Eller 2024-04-26 22:33:04 +02:00 • committed by Gerd Möllmann
parent bbe1b128f6
commit 3d370cf2e5
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/xdisp.c
View file

@ -500,6 +500,9 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
#ifdef HAVE_WINDOW_SYSTEM
#include TERM_HEADER
#endif /* HAVE_WINDOW_SYSTEM */
#ifdef HAVE_MPS
#include "igc.h"
#endif
#ifndef FRAME_OUTPUT_DATA
#define FRAME_OUTPUT_DATA(f) (NULL)
@ -37391,6 +37394,37 @@ doesn't exist, it will be created and put into
staticpro (&previous_help_echo_string);
help_echo_pos = -1;
#ifdef HAVE_MPS
this_line_buffer = NULL;
igc_root_create_exact_ptr (&this_line_buffer);
{
size_t len = (sizeof default_invis_vector
/ sizeof (default_invis_vector[0]));
for (size_t i = 0; i < len; i++)
{
default_invis_vector[i] = Qnil;
staticpro (&default_invis_vector[i]);
}
}
echo_area_window = Qnil;
staticpro (&echo_area_window);
{
size_t len = sizeof (scratch_glyphs) / sizeof (scratch_glyphs[0]);
for (size_t i = 0; i < len; i++)
{
Lisp_Object *ptr = &scratch_glyphs[i].object;
*ptr = Qnil;
staticpro (ptr);
}
}
displayed_buffer = NULL;
igc_root_create_exact_ptr (&displayed_buffer);
last_escape_glyph_frame = NULL;
igc_root_create_exact_ptr (&last_escape_glyph_frame);
last_glyphless_glyph_frame = NULL;
igc_root_create_exact_ptr (&last_glyphless_glyph_frame);
#endif /* HAVE_MPS */
DEFSYM (Qright_to_left, "right-to-left");
DEFSYM (Qleft_to_right, "left-to-right");
defsubr (&Sbidi_resolved_levels);