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

[Juanma Barranquero]

Index: emacs/src/process.c
diff -c emacs/src/process.c:1.373 emacs/src/process.c:1.374
*** emacs/src/process.c:1.373   Mon May 20 04:06:32 2002
--- emacs/src/process.c Thu Jul 11 10:14:34 2002
***************
*** 1292,1298 ****
    register unsigned char **new_argv;
  #endif
    register int i;
!   int count = specpdl_ptr - specpdl;
  
    buffer = args[1];
    if (!NILP (buffer))
--- 1292,1298 ----
    register unsigned char **new_argv;
  #endif
    register int i;
!   int count = SPECPDL_INDEX ();
  
    buffer = args[1];
    if (!NILP (buffer))
***************
*** 2552,2558 ****
    int s = -1, outch, inch;
    struct gcpro gcpro1;
    int retry = 0;
!   int count = specpdl_ptr - specpdl;
    int count1;
    Lisp_Object QCaddress;  /* one of QClocal or QCremote */
    Lisp_Object tem;
--- 2552,2558 ----
    int s = -1, outch, inch;
    struct gcpro gcpro1;
    int retry = 0;
!   int count = SPECPDL_INDEX ();
    int count1;
    Lisp_Object QCaddress;  /* one of QClocal or QCremote */
    Lisp_Object tem;
***************
*** 2843,2849 ****
      }
  
    /* Do this in case we never enter the for-loop below.  */
!   count1 = specpdl_ptr - specpdl;
    s = -1;
  
    for (lres = res; lres; lres = lres->ai_next)
--- 2843,2849 ----
      }
  
    /* Do this in case we never enter the for-loop below.  */
!   count1 = SPECPDL_INDEX ();
    s = -1;
  
    for (lres = res; lres; lres = lres->ai_next)
***************
*** 4348,4354 ****
        /* We inhibit quit here instead of just catching it so that 
         hitting ^G when a filter happens to be running won't screw
         it up.  */
!       int count = specpdl_ptr - specpdl;
        Lisp_Object odeactivate;
        Lisp_Object obuffer, okeymap;
        Lisp_Object text;
--- 4348,4354 ----
        /* We inhibit quit here instead of just catching it so that 
         hitting ^G when a filter happens to be running won't screw
         it up.  */
!       int count = SPECPDL_INDEX ();
        Lisp_Object odeactivate;
        Lisp_Object obuffer, okeymap;
        Lisp_Object text;
***************
*** 5734,5740 ****
  {
    Lisp_Object sentinel, obuffer, odeactivate, okeymap;
    register struct Lisp_Process *p = XPROCESS (proc);
!   int count = specpdl_ptr - specpdl;
    int outer_running_asynch_code = running_asynch_code;
    int waiting = waiting_for_user_input_p;
  
--- 5734,5740 ----
  {
    Lisp_Object sentinel, obuffer, odeactivate, okeymap;
    register struct Lisp_Process *p = XPROCESS (proc);
!   int count = SPECPDL_INDEX ();
    int outer_running_asynch_code = running_asynch_code;
    int waiting = waiting_for_user_input_p;