From 98423852fcb3050bdf43c67f383f9a94ac7d1b86 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 28 Feb 2001 13:29:03 +0000 Subject: [PATCH] (make_process): Use allocate_process. --- src/process.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) 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); -- 2.39.5