# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030158963 0
# Node ID de9a20871faa635993a68f1cf03872ed3f6f5cac
# Parent  8ec5fd232f26b6bc4219c132685a6a15611422ab
(Fstart_process): Remove /: from program name.

diff -r 8ec5fd232f26 -r de9a20871faa src/process.c
--- a/src/process.c	Sat Aug 24 03:15:22 2002 +0000
+++ b/src/process.c	Sat Aug 24 03:16:03 2002 +0000
@@ -1421,7 +1421,8 @@
 #else /* not VMS */
   new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
 
-  /* If program file name is not absolute, search our path for it */
+  /* If program file name is not absolute, search our path for it.
+     Put the name we will really use in TEM.  */
   if (!IS_DIRECTORY_SEP (SREF (program, 0))
       && !(SCHARS (program) > 1
 	   && IS_DEVICE_SEP (SREF (program, 1))))
@@ -1435,18 +1436,25 @@
       if (NILP (tem))
 	report_file_error ("Searching for program", Fcons (program, Qnil));
       tem = Fexpand_file_name (tem, Qnil);
-      tem = ENCODE_FILE (tem);
-      new_argv[0] = SDATA (tem);
     }
   else
     {
       if (!NILP (Ffile_directory_p (program)))
 	error ("Specified program for new process is a directory");
-
-      tem = ENCODE_FILE (program);
-      new_argv[0] = SDATA (tem);
+      tem = program;
     }
 
+  /* If program file name starts with /: for quoting a magic name,
+     discard that.  */
+  if (SBYTES (tem) > 2 && SREF (tem, 0) == '/'
+      && SREF (tem, 1) == ':')
+    tem = Fsubstring (tem, make_number (2), Qnil);
+
+  /* Encode the file name and put it in NEW_ARGV.
+     That's where the child will use it to execute the program.  */
+  tem = ENCODE_FILE (tem);
+  new_argv[0] = SDATA (tem);
+
   /* Here we encode arguments by the coding system used for sending
      data to the process.  We don't support using different coding
      systems for encoding arguments and for encoding data sent to the