# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 983366915 0
# Node ID 20b42ba5a623642a97194b75216b333f6e6910b8
# Parent  28af746067b2ba954cc81b93c11dcd115876fd91
(make_frame): Use allocate_frame.

diff -r 28af746067b2 -r 20b42ba5a623 src/frame.c
--- a/src/frame.c	Wed Feb 28 13:28:11 2001 +0000
+++ b/src/frame.c	Wed Feb 28 13:28:35 2001 +0000
@@ -1,5 +1,6 @@
 /* Generic frame functions.
-   Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000 Free Software Foundation.
+   Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001
+   Free Software Foundation.
 
 This file is part of GNU Emacs.
 
@@ -198,14 +199,8 @@
   register struct frame *f;
   register Lisp_Object root_window;
   register Lisp_Object mini_window;
-  register struct Lisp_Vector *vec;
-  int i;
 
-  vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame));
-  for (i = 0; i < VECSIZE (struct frame); i++)
-    XSETFASTINT (vec->contents[i], 0);
-  vec->size = VECSIZE (struct frame);
-  f = (struct frame *)vec;
+  f = allocate_frame ();
   XSETFRAME (frame, f);
 
   f->desired_matrix = 0;