From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 28 Feb 2001 13:29:03 +0000 (+0000)
Subject: (make_process): Use allocate_process.
X-Git-Tag: emacs-pretest-21.0.99~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98423852fcb3050bdf43c67f383f9a94ac7d1b86;p=emacs.git

(make_process): Use allocate_process.
---

diff --git a/src/process.c b/src/process.c
index 2434851b7bc..b41478c0bd3 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1,5 +1,5 @@
 /* Asynchronous subprocess control for GNU Emacs.
-   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999
+   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999, 2001
       Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -434,17 +434,12 @@ Lisp_Object
 make_process (name)
      Lisp_Object name;
 {
-  struct Lisp_Vector *vec;
   register Lisp_Object val, tem, name1;
   register struct Lisp_Process *p;
   char suffix[10];
   register int i;
 
-  vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct Lisp_Process));
-  for (i = 0; i < VECSIZE (struct Lisp_Process); i++)
-    vec->contents[i] = Qnil;
-  vec->size = VECSIZE (struct Lisp_Process);
-  p = (struct Lisp_Process *)vec;
+  p = allocate_process ();
 
   XSETINT (p->infd, -1);
   XSETINT (p->outfd, -1);