diff options
| author | Paul Reilly <pmr@pajato.com> | 1994-07-01 07:17:43 +0000 |
|---|---|---|
| committer | Paul Reilly <pmr@pajato.com> | 1994-07-01 07:17:43 +0000 |
| commit | f8ea84991a6f781e96f7a3fa6cfdbfc562ca2bcd (patch) | |
| tree | 1d6bb8cf8487efe31cdc955784258049c59896fd /src/xfns.c | |
| parent | 69c38b460f3815a40a16d49d40458f5685b43b4d (diff) | |
| download | emacs-f8ea84991a6f781e96f7a3fa6cfdbfc562ca2bcd.tar.gz | |
(Fx_create_frame): Add GC protection for local var `f'.
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/xfns.c b/src/xfns.c index 12b369b8c75..3e04cf4cc7e 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -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 |