From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 28 Feb 2001 13:28:35 +0000 (+0000)
Subject: (make_frame): Use allocate_frame.
X-Git-Tag: emacs-pretest-21.0.99~87
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9c96c6291e1a5349bd99abc111cf95a94368c6a;p=emacs.git

(make_frame): Use allocate_frame.
---

diff --git a/src/frame.c b/src/frame.c
index 4ebafbede32..0cc5035737a 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -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 @@ make_frame (mini_p)
   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;