From 13373f4ece72d1aca9573e236fd7391fd677e728 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jul 1995 13:34:16 +0000 Subject: [PATCH] (Fstart_process): Expand PROGRAM. Error if it is a directory. --- src/process.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/process.c b/src/process.c index adecb580634..02f8cc29bac 100644 --- a/src/process.c +++ b/src/process.c @@ -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++) { -- 2.39.2