Commit cefecbcf authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fx_create_frame): Initialize frame colors to -1,

for the case that x_decode_colors signals an error.
parent bbac5699
...@@ -4182,6 +4182,16 @@ This function is an internal primitive--use `make-frame' instead.") ...@@ -4182,6 +4182,16 @@ This function is an internal primitive--use `make-frame' instead.")
{ {
Lisp_Object black; Lisp_Object black;
struct gcpro gcpro1; struct gcpro gcpro1;
/* Function x_decode_color can signal an error. Make
sure to initialize color slots so that we won't try
to free colors we haven't allocated. */
f->output_data.x->foreground_pixel = -1;
f->output_data.x->background_pixel = -1;
f->output_data.x->cursor_pixel = -1;
f->output_data.x->cursor_foreground_pixel = -1;
f->output_data.x->border_pixel = -1;
f->output_data.x->mouse_pixel = -1;
black = build_string ("black"); black = build_string ("black");
GCPRO1 (black); GCPRO1 (black);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment