From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 4 Jan 1994 01:22:38 +0000 (+0000)
Subject: (Fx_list_fonts): Don't fail to init `tail'.
X-Git-Tag: emacs-19.34~10422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59d61058775d74c6f4596915d82baee8b92f33af;p=emacs.git

(Fx_list_fonts): Don't fail to init `tail'.

(Fx_create_frame): Add to Vframe_list before making visible.
---

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