172 |
|
|
173 |
if (EMACS_KILLPG (pid, SIGINT) == 0) |
if (EMACS_KILLPG (pid, SIGINT) == 0) |
174 |
{ |
{ |
175 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
176 |
record_unwind_protect (call_process_kill, fdpid); |
record_unwind_protect (call_process_kill, fdpid); |
177 |
message1 ("Waiting for process to die...(type C-g again to kill it instantly)"); |
message1 ("Waiting for process to die...(type C-g again to kill it instantly)"); |
178 |
immediate_quit = 1; |
immediate_quit = 1; |
220 |
char buf[16384]; |
char buf[16384]; |
221 |
char *bufptr = buf; |
char *bufptr = buf; |
222 |
int bufsize = 16384; |
int bufsize = 16384; |
223 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
224 |
|
|
225 |
register unsigned char **new_argv |
register unsigned char **new_argv |
226 |
= (unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *)); |
= (unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *)); |
936 |
} |
} |
937 |
|
|
938 |
{ |
{ |
939 |
int post_read_count = specpdl_ptr - specpdl; |
int post_read_count = SPECPDL_INDEX (); |
940 |
|
|
941 |
record_unwind_protect (save_excursion_restore, save_excursion_save ()); |
record_unwind_protect (save_excursion_restore, save_excursion_save ()); |
942 |
inserted = PT - pt_orig; |
inserted = PT - pt_orig; |
1017 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
1018 |
Lisp_Object filename_string; |
Lisp_Object filename_string; |
1019 |
register Lisp_Object start, end; |
register Lisp_Object start, end; |
1020 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
1021 |
/* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
/* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
1022 |
Lisp_Object coding_systems; |
Lisp_Object coding_systems; |
1023 |
Lisp_Object val, *args2; |
Lisp_Object val, *args2; |
1091 |
} |
} |
1092 |
|
|
1093 |
{ |
{ |
1094 |
int count1 = specpdl_ptr - specpdl; |
int count1 = SPECPDL_INDEX (); |
1095 |
|
|
1096 |
specbind (intern ("coding-system-for-write"), val); |
specbind (intern ("coding-system-for-write"), val); |
1097 |
Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); |
Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); |