comparison src/frame.c @ 36433:20b42ba5a623

(make_frame): Use allocate_frame.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 28 Feb 2001 13:28:35 +0000
parents b102dd3ed2a3
children e4331ae9636d
comparison
equal deleted inserted replaced
36432:28af746067b2 36433:20b42ba5a623
1 /* Generic frame functions. 1 /* Generic frame functions.
2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000 Free Software Foundation. 2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001
3 Free Software Foundation.
3 4
4 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
5 6
6 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
196 { 197 {
197 Lisp_Object frame; 198 Lisp_Object frame;
198 register struct frame *f; 199 register struct frame *f;
199 register Lisp_Object root_window; 200 register Lisp_Object root_window;
200 register Lisp_Object mini_window; 201 register Lisp_Object mini_window;
201 register struct Lisp_Vector *vec; 202
202 int i; 203 f = allocate_frame ();
203
204 vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame));
205 for (i = 0; i < VECSIZE (struct frame); i++)
206 XSETFASTINT (vec->contents[i], 0);
207 vec->size = VECSIZE (struct frame);
208 f = (struct frame *)vec;
209 XSETFRAME (frame, f); 204 XSETFRAME (frame, f);
210 205
211 f->desired_matrix = 0; 206 f->desired_matrix = 0;
212 f->current_matrix = 0; 207 f->current_matrix = 0;
213 f->desired_pool = 0; 208 f->desired_pool = 0;