mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 20:00:46 -08:00
Code Issues Projects Releases Wiki Activity

(Fstart_process): Expand PROGRAM.

Browse source 
Error if it is a directory.
This commit is contained in:
Richard M. Stallman 1995-07-07 13:34:16 +00:00
parent 553a1e4656
commit 13373f4ece
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/process.c
View file

@ -1080,6 +1080,8 @@ Remaining arguments are strings to give program as arguments.")
#else /* not VMS */
new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
program = Fexpand_file_name (program, Qnil);
/* If program file name is not absolute, search our path for it */
if (!IS_DIRECTORY_SEP (XSTRING (program)->data[0])
&& !(XSTRING (program)->size > 1
@ -1096,7 +1098,12 @@ Remaining arguments are strings to give program as arguments.")
new_argv[0] = XSTRING (tem)->data;
}
else
new_argv[0] = XSTRING (program)->data;
{
if (!NILP (Ffile_directory_p (program)))
error ("Specified program for new process is a directory");
new_argv[0] = XSTRING (program)->data;
}
for (i = 3; i < nargs; i++)
{