Mercurial > emacs
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; |