/[emacs]/emacs/src/callproc.c
ViewVC logotype

Diff of /emacs/src/callproc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.189 by handa, Tue Jul 9 00:12:23 2002 UTC revision 1.190 by lektu, Thu Jul 11 14:08:58 2002 UTC
# Line 172  call_process_cleanup (fdpid) Line 172  call_process_cleanup (fdpid)
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;
# Line 220  usage: (call-process PROGRAM &optional I Line 220  usage: (call-process PROGRAM &optional I
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 *));
# Line 936  usage: (call-process PROGRAM &optional I Line 936  usage: (call-process PROGRAM &optional I
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;
# Line 1017  usage: (call-process-region START END PR Line 1017  usage: (call-process-region START END PR
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;
# Line 1091  usage: (call-process-region START END PR Line 1091  usage: (call-process-region START END PR
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);

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26