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

[Miles Bader]

Index: emacs/src/process.c
diff -c emacs/src/process.c:1.373.2.7 emacs/src/process.c:1.373.2.8
*** emacs/src/process.c:1.373.2.7       Tue Jul  6 09:14:37 2004
--- emacs/src/process.c Tue Jul  6 09:31:31 2004
***************
*** 774,780 ****
        XSETINT (XPROCESS (process)->tick, ++process_tick);
        status_notify ();
      }
!   remove_process (process);
    return Qnil;
  }
  
--- 774,791 ----
        XSETINT (XPROCESS (process)->tick, ++process_tick);
        status_notify ();
      }
!   /* Do not call remove_process here; either status_notify has already done
!      it, or will do so the next time emacs polls for input.  Thus network
!      processes are not immediately removed, and their sentinel will be
!      called.
! 
!      Since Fdelete_process is called by kill_buffer_processes, this also
!      means that a network process sentinel will run after the buffer is
!      dead, which would not be the case if status_notify() were called
!      unconditionally here.  This way process sentinels observe consistent
!      behavior with regard to buffer-live-p.
!   */
!   /* remove_process (process); */
    return Qnil;
  }
  
***************
*** 4581,4587 ****
                }
            }
  #ifdef NON_BLOCKING_CONNECT
!         if (check_connect && FD_ISSET (channel, &Connecting))
            {
              struct Lisp_Process *p;
  
--- 4592,4599 ----
                }
            }
  #ifdef NON_BLOCKING_CONNECT
!         if (check_connect && FD_ISSET (channel, &Connecting)
!             && FD_ISSET (channel, &connect_wait_mask))
            {
              struct Lisp_Process *p;