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