comparison src/process.c @ 47020:de9a20871faa

(Fstart_process): Remove /: from program name.

47019:8ec5fd232f26

  /* Need to add code here to check for program existence on VMS */
  
#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 (!IS_DIRECTORY_SEP (SREF (program, 0))
      && !(SCHARS (program) > 1
	   && IS_DEVICE_SEP (SREF (program, 1))))
    {
      struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;

      openp (Vexec_path, program, Vexec_suffixes, &tem, make_number (X_OK));
      UNGCPRO;
      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);
    }

  /* 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
     process.  */

47020:de9a20871faa

  /* Need to add code here to check for program existence on VMS */
  
#else /* not VMS */
  new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));

  /* 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))))
    {
      struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;

      openp (Vexec_path, program, Vexec_suffixes, &tem, make_number (X_OK));
      UNGCPRO;
      if (NILP (tem))
	report_file_error ("Searching for program", Fcons (program, Qnil));
      tem = Fexpand_file_name (tem, Qnil);
    }
  else
    {
      if (!NILP (Ffile_directory_p (program)))
	error ("Specified program for new process is a directory");
      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
     process.  */