From 59d61058775d74c6f4596915d82baee8b92f33af Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 4 Jan 1994 01:22:38 +0000 Subject: [PATCH] (Fx_list_fonts): Don't fail to init `tail'. (Fx_create_frame): Add to Vframe_list before making visible. --- src/xfns.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index 2de9158466f..d42d79dd317 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1892,6 +1892,12 @@ be shared by the new frame.") 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 @@ be shared by the new frame.") ; } - Vframe_list = Fcons (frame, Vframe_list); return frame; #else /* X10 */ struct frame *f; @@ -2336,6 +2341,7 @@ fonts), even if they match PATTERN and FACE.") Lisp_Object *tail; int i; + tail = &list; for (i = 0; i < num_fonts; i++) { #ifdef BROKEN_XLISTFONTSWITHINFO -- 2.39.5