# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756608751 0
# Node ID 6646271e8d320dfd5c0f48b1f7b7086e3d6ab82e
# Parent  8c30e49ddc047b35efb992cbee17bc799ce4596c
(make_terminal_frame): Add frame to Vframe_list.
(make_frame): Don't add to frame list here.

diff -r 8c30e49ddc04 -r 6646271e8d32 src/frame.c
--- a/src/frame.c	Thu Dec 23 01:04:26 1993 +0000
+++ b/src/frame.c	Thu Dec 23 01:05:51 1993 +0000
@@ -231,8 +231,6 @@
      a newly-created, never-selected window.  */
   XFASTINT (XWINDOW (f->selected_window)->use_time) = ++window_select_count;
 
-  Vframe_list = Fcons (frame, Vframe_list);
-
   return f;
 }
 
@@ -316,9 +314,14 @@
 make_terminal_frame ()
 {
   register struct frame *f;
+  Lisp_Object frame;
 
   Vframe_list = Qnil;
   f = make_frame (1);
+
+  XSET (frame, Lisp_Frame, f);
+  Vframe_list = Fcons (frame, Vframe_list);
+
   f->name = build_string ("terminal");
   FRAME_SET_VISIBLE (f, 1);
   f->display.nothing = 1;   /* Nonzero means frame isn't deleted.  */