[Emacs-diffs] Changes to emacs/src/callproc.c

[Juanma Barranquero]

Index: emacs/src/callproc.c
diff -c emacs/src/callproc.c:1.189 emacs/src/callproc.c:1.190
*** emacs/src/callproc.c:1.189  Mon Jul  8 20:12:23 2002
--- emacs/src/callproc.c        Thu Jul 11 10:08:58 2002
***************
*** 172,178 ****
  
    if (EMACS_KILLPG (pid, SIGINT) == 0)
      {
!       int count = specpdl_ptr - specpdl;
        record_unwind_protect (call_process_kill, fdpid);
        message1 ("Waiting for process to die...(type C-g again to kill it 
instantly)");
        immediate_quit = 1;
--- 172,178 ----
  
    if (EMACS_KILLPG (pid, SIGINT) == 0)
      {
!       int count = SPECPDL_INDEX ();
        record_unwind_protect (call_process_kill, fdpid);
        message1 ("Waiting for process to die...(type C-g again to kill it 
instantly)");
        immediate_quit = 1;
***************
*** 220,226 ****
    char buf[16384];
    char *bufptr = buf;
    int bufsize = 16384;
!   int count = specpdl_ptr - specpdl;
  
    register unsigned char **new_argv
      = (unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
--- 220,226 ----
    char buf[16384];
    char *bufptr = buf;
    int bufsize = 16384;
!   int count = SPECPDL_INDEX ();
  
    register unsigned char **new_argv
      = (unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
***************
*** 936,942 ****
        }
  
      {
!       int post_read_count = specpdl_ptr - specpdl;
  
        record_unwind_protect (save_excursion_restore, save_excursion_save ());
        inserted = PT - pt_orig;
--- 936,942 ----
        }
  
      {
!       int post_read_count = SPECPDL_INDEX ();
  
        record_unwind_protect (save_excursion_restore, save_excursion_save ());
        inserted = PT - pt_orig;
***************
*** 1017,1023 ****
    struct gcpro gcpro1;
    Lisp_Object filename_string;
    register Lisp_Object start, end;
!   int count = specpdl_ptr - specpdl;
    /* Qt denotes we have not yet called Ffind_operation_coding_system.  */
    Lisp_Object coding_systems;
    Lisp_Object val, *args2;
--- 1017,1023 ----
    struct gcpro gcpro1;
    Lisp_Object filename_string;
    register Lisp_Object start, end;
!   int count = SPECPDL_INDEX ();
    /* Qt denotes we have not yet called Ffind_operation_coding_system.  */
    Lisp_Object coding_systems;
    Lisp_Object val, *args2;
***************
*** 1091,1097 ****
      }
  
    {
!     int count1 = specpdl_ptr - specpdl;
  
      specbind (intern ("coding-system-for-write"), val);
      Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
--- 1091,1097 ----
      }
  
    {
!     int count1 = SPECPDL_INDEX ();
  
      specbind (intern ("coding-system-for-write"), val);
      Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);