# HG changeset patch
# User michaels
# Date 1026215764 0
# Node ID 34362f9d6d615ea35a5f1664f2b051c8700204a9
# Parent  a703d313962d168ded617e68f874293b6571c08f
[xemacs-hg @ 2002-07-09 11:56:04 by michaels]
2002-07-08  Mike Sperber <mike@xemacs.org>

	* process.c (Fstart_process_internal): Do error checking before we
	fork off the child, so the child can't muck with the state of the
	parent.

diff -r a703d313962d -r 34362f9d6d61 src/process.c
--- a/src/process.c	Tue Jul 09 11:55:36 2002 +0000
+++ b/src/process.c	Tue Jul 09 11:56:04 2002 +0000
@@ -694,6 +694,7 @@
   Lisp_Object buffer, stderr_buffer, name, program, process, current_dir;
   int separate_stderr;
   Lisp_Object tem;
+  int i;
   int speccount = specpdl_depth ();
   struct gcpro gcpro1, gcpro2, gcpro3;
 
@@ -730,6 +731,8 @@
 
   CHECK_STRING (name);
   CHECK_STRING (program);
+  for (i = 3; i < nargs; ++i)
+    CHECK_STRING (args[i]);
 
   /* Make sure that the child will be able to chdir to the current
      buffer's current directory, or its unhandled equivalent. [[ We