# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803230140 0
# Node ID ff7738cdbd999129f3831d706ed32bd51d3f0051
# Parent  f442c22815b8702b98244fd8bc2e010c441d63af
(win32_spawnve): Accept program names without executable suffixes.

diff -r f442c22815b8 -r ff7738cdbd99 src/w32proc.c
--- a/src/w32proc.c	Thu Jun 15 15:28:34 1995 +0000
+++ b/src/w32proc.c	Thu Jun 15 15:29:00 1995 +0000
@@ -427,10 +427,30 @@
 int 
 win32_spawnve (int mode, char *cmdname, char **argv, char **envp)
 {
+  Lisp_Object program, full;
   char *cmdline, *env, *parg, **targ;
   int arglen;
   PROCESS_INFORMATION pi;
-  
+
+  /* Handle executable names without an executable suffix.  */
+  program = make_string (cmdname, strlen (cmdname));
+  if (NILP (Ffile_executable_p (program)))
+    {
+      struct gcpro gcpro1;
+      
+      full = Qnil;
+      GCPRO1 (program);
+      openp (Vexec_path, program, EXEC_SUFFIXES, &full, 1);
+      UNGCPRO;
+      if (NILP (full))
+	{
+	  errno = EINVAL;
+	  return -1;
+	}
+      cmdname = XSTRING (full)->data;
+      argv[0] = cmdname;
+    }
+
   if (child_proc_count == MAX_CHILDREN)
     {
       errno = EAGAIN;