# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 983366943 0
# Node ID 40cfe4976f042c2677d4811739ac83aed0e996a5
# Parent  20b42ba5a623642a97194b75216b333f6e6910b8
(make_process): Use allocate_process.

diff -r 20b42ba5a623 -r 40cfe4976f04 src/process.c
--- a/src/process.c	Wed Feb 28 13:28:35 2001 +0000
+++ b/src/process.c	Wed Feb 28 13:29:03 2001 +0000
@@ -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 @@
 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);