From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 01:05:51 +0000 (+0000)
Subject: (make_terminal_frame): Add frame to Vframe_list.
X-Git-Tag: emacs-19.34~10620
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d063751a9741ba9c00d600fc1e57cd1ef2b5cb44;p=emacs.git

(make_terminal_frame): Add frame to Vframe_list.
(make_frame): Don't add to frame list here.
---

diff --git a/src/frame.c b/src/frame.c
index 4dc65a9e558..f5a24a41f2f 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -231,8 +231,6 @@ make_frame (mini_p)
      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 @@ struct frame *
 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.  */