projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(Charc_dynarr): New type.
[chise/xemacs-chise.git-]
/
src
/
callproc.c
diff --git
a/src/callproc.c
b/src/callproc.c
index
5b2dfea
..
1ce04b0
100644
(file)
--- a/
src/callproc.c
+++ b/
src/callproc.c
@@
-152,7
+152,7
@@
report_fork_error (char *string, Lisp_Object data)
}
#endif /* unused */
}
#endif /* unused */
-DEFUN ("call-process-internal", Fcall_process_internal, 1, MANY, 0, /*
+DEFUN ("old-call-process-internal", Fold_call_process_internal, 1, MANY, 0, /*
Call PROGRAM synchronously in separate process, with coding-system specified.
Arguments are
(PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS).
Call PROGRAM synchronously in separate process, with coding-system specified.
Arguments are
(PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS).
@@
-188,7
+188,7
@@
If you quit, the process is killed with SIGINT, or SIGKILL if you
char *bufptr = buf;
int bufsize = 16384;
int speccount = specpdl_depth ();
char *bufptr = buf;
int bufsize = 16384;
int speccount = specpdl_depth ();
- struct gcpro gcpro1, gcpro2;
+ struct gcpro gcpro1, gcpro2, gcpro3;
char **new_argv = alloca_array (char *, max (2, nargs - 2));
/* File to use for stderr in the child.
char **new_argv = alloca_array (char *, max (2, nargs - 2));
/* File to use for stderr in the child.
@@
-235,7
+235,7
@@
If you quit, the process is killed with SIGINT, or SIGKILL if you
NUNGCPRO;
}
NUNGCPRO;
}
- GCPRO1 (current_dir);
+ GCPRO2 (current_dir, path);
if (nargs >= 2 && ! NILP (args[1]))
{
if (nargs >= 2 && ! NILP (args[1]))
{
@@
-250,7
+250,7
@@
If you quit, the process is killed with SIGINT, or SIGKILL if you
UNGCPRO;
UNGCPRO;
- GCPRO2 (infile, current_dir); /* Fexpand_file_name might trash it */
+ GCPRO3 (infile, current_dir, path); /* Fexpand_file_name might trash it */
if (nargs >= 3)
{
if (nargs >= 3)
{
@@
-906,7
+906,7
@@
set_process_environment (void)
void
syms_of_callproc (void)
{
void
syms_of_callproc (void)
{
- DEFSUBR (Fcall_process_internal);
+ DEFSUBR (Fold_call_process_internal);
DEFSUBR (Fgetenv);
}
DEFSUBR (Fgetenv);
}