changeset 5231:6646271e8d32

(make_terminal_frame): Add frame to Vframe_list. (make_frame): Don't add to frame list here.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 01:05:51 +0000
parents 8c30e49ddc04
children 823c0cf7bbc8
files src/frame.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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.  */