mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-07-03 00:08:25 +00:00
parent 36f7ba0a1e
commit abc367df62
2 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/callproc.c
View File

@ -121,11 +121,6 @@ If you quit, the process is killed with SIGKILL.")
#if 0
int mask;
#endif
struct gcpro gcpro1;
GCPRO1 (*args);
gcpro1.nvars = nargs;
CHECK_STRING (args[0], 0);
if (nargs <= 1 || NULL (args[1]))
@ -246,8 +241,6 @@ If you quit, the process is killed with SIGKILL.")
#ifndef subprocesses
wait_without_blocking ();
#endif /* subprocesses */
UNGCPRO;
return Qnil;
}
@ -285,8 +278,6 @@ If you quit, the process is killed with SIGKILL.")
unbind_to (count, Qnil);
UNGCPRO;
if (synch_process_death)
return build_string (synch_process_death);
return make_number (synch_process_retcode);
@ -319,10 +310,6 @@ If you quit, the process is killed with SIGKILL.")
register Lisp_Object filename_string, start, end;
char tempfile[20];
int count = specpdl_ptr - specpdl;
struct gcpro gcpro1;
GCPRO1 (*args);
gcpro1.nvars = 2;
#ifdef VMS
strcpy (tempfile, "tmp:emacsXXXXXX.");
@ -343,7 +330,6 @@ If you quit, the process is killed with SIGKILL.")
args[3] = filename_string;
Fcall_process (nargs - 2, args + 2);
UNGCPRO;
return unbind_to (count, Qnil);
}

5
src/mocklisp.c
View File

@ -205,10 +205,6 @@ is converted into a string by expressing it in decimal.")
{
register int argnum;
register Lisp_Object tem;
struct gcpro gcpro1;
GCPRO1 (*args);
gcpro1.nvars = nargs;
for (argnum = 0; argnum < nargs; argnum++)
{
@ -225,7 +221,6 @@ is converted into a string by expressing it in decimal.")
}
}
UNGCPRO;
return Qnil;
}