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

(child_setup): Reword "can't exec" message.

Browse source 
Add newline after message.

(Fcall_process): Call Fexpand_file_name for error_file.
This commit is contained in:
Richard M. Stallman 1995-04-24 05:51:40 +00:00
parent 819fefed8a
commit d20b8af682
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/callproc.c
View file

@ -242,7 +242,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
if (CONSP (buffer))
{
if (CONSP (XCONS (buffer)->cdr))
error_file = XCONS (XCONS (buffer)->cdr)->car;
error_file = Fexpand_file_name (XCONS (XCONS (buffer)->cdr)->car,
Qnil);
buffer = XCONS (buffer)->car;
}
@ -820,8 +821,9 @@ child_setup (in, out, err, new_argv, set_pgrp, current_dir)
environ = env;
execvp (new_argv[0], new_argv);
write (1, "Couldn't exec the program ", 26);
write (1, "Can't exec program: ", 26);
write (1, new_argv[0], strlen (new_argv[0]));
write (1, "\n", 1);
_exit (1);
#endif /* not WINDOWSNT */
#endif /* not MSDOS */