Mercurial > emacs
changeset 5429:87c67c389867
(Fx_list_fonts): Don't fail to init `tail'.
(Fx_create_frame): Add to Vframe_list before making visible.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 04 Jan 1994 01:22:38 +0000 |
parents | e66b058ec9f6 |
children | db0ab86f381a |
files | src/xfns.c |
diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Mon Jan 03 20:53:26 1994 +0000 +++ b/src/xfns.c Tue Jan 04 01:22:38 1994 +0000 @@ -1892,6 +1892,12 @@ tem = x_get_arg (parms, Qunsplittable, 0, 0, boolean); f->no_split = minibuffer_only || EQ (tem, Qt); + /* 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 + or making it visible won't work. */ + Vframe_list = Fcons (frame, Vframe_list); + /* Make the window appear on the frame and enable display, unless the caller says not to. */ { @@ -1909,7 +1915,6 @@ ; } - Vframe_list = Fcons (frame, Vframe_list); return frame; #else /* X10 */ struct frame *f; @@ -2336,6 +2341,7 @@ Lisp_Object *tail; int i; + tail = &list; for (i = 0; i < num_fonts; i++) { #ifdef BROKEN_XLISTFONTSWITHINFO