comparison src/frame.c @ 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 9aa201005b16
children d8d5844c3ba6
comparison
equal deleted inserted replaced
5230:8c30e49ddc04 5231:6646271e8d32
229 f->selected_window = root_window; 229 f->selected_window = root_window;
230 /* Make sure this window seems more recently used than 230 /* Make sure this window seems more recently used than
231 a newly-created, never-selected window. */ 231 a newly-created, never-selected window. */
232 XFASTINT (XWINDOW (f->selected_window)->use_time) = ++window_select_count; 232 XFASTINT (XWINDOW (f->selected_window)->use_time) = ++window_select_count;
233 233
234 Vframe_list = Fcons (frame, Vframe_list);
235
236 return f; 234 return f;
237 } 235 }
238 236
239 /* Make a frame using a separate minibuffer window on another frame. 237 /* Make a frame using a separate minibuffer window on another frame.
240 MINI_WINDOW is the minibuffer window to use. nil means use the 238 MINI_WINDOW is the minibuffer window to use. nil means use the
314 312
315 struct frame * 313 struct frame *
316 make_terminal_frame () 314 make_terminal_frame ()
317 { 315 {
318 register struct frame *f; 316 register struct frame *f;
317 Lisp_Object frame;
319 318
320 Vframe_list = Qnil; 319 Vframe_list = Qnil;
321 f = make_frame (1); 320 f = make_frame (1);
321
322 XSET (frame, Lisp_Frame, f);
323 Vframe_list = Fcons (frame, Vframe_list);
324
322 f->name = build_string ("terminal"); 325 f->name = build_string ("terminal");
323 FRAME_SET_VISIBLE (f, 1); 326 FRAME_SET_VISIBLE (f, 1);
324 f->display.nothing = 1; /* Nonzero means frame isn't deleted. */ 327 f->display.nothing = 1; /* Nonzero means frame isn't deleted. */
325 XSET (Vterminal_frame, Lisp_Frame, f); 328 XSET (Vterminal_frame, Lisp_Frame, f);
326 return f; 329 return f;