1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 13:40:36 -08:00

(Fx_create_frame): Add GC protection for local var `f'.

This commit is contained in:
Paul Reilly 1994-07-01 07:17:43 +00:00
parent 69c38b460f
commit f8ea84991a

View file

@ -2264,6 +2264,7 @@ be shared by the new frame.")
long window_prompting = 0;
int width, height;
int count = specpdl_ptr - specpdl;
struct gcpro gcpro1;
check_x ();
@ -2305,6 +2306,8 @@ be shared by the new frame.")
}
XSET (frame, Lisp_Frame, f);
GCPRO1 (frame);
f->output_method = output_x_window;
f->display.x = (struct x_display *) xmalloc (sizeof (struct x_display));
bzero (f->display.x, sizeof (struct x_display));
@ -2436,6 +2439,8 @@ be shared by the new frame.")
tem = x_get_arg (parms, Qunsplittable, 0, 0, boolean);
f->no_split = minibuffer_only || EQ (tem, Qt);
UNGCPRO;
/* It is now ok to make the frame official
even if we get an error below.
And the frame needs to be on Vframe_list