[Emacs-diffs] Changes to emacs/src/w32proc.c [emacs-unicode-2]

[Miles Bader]

Index: emacs/src/w32proc.c
diff -c emacs/src/w32proc.c:1.55.6.1 emacs/src/w32proc.c:1.55.6.2
*** emacs/src/w32proc.c:1.55.6.1        Fri Apr 16 12:50:51 2004
--- emacs/src/w32proc.c Mon Jun 28 07:29:24 2004
***************
*** 1,5 ****
  /* Process support for GNU Emacs on the Microsoft W32 API.
!    Copyright (C) 1992, 1995, 1999, 2000, 2001 Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
  
--- 1,5 ----
  /* Process support for GNU Emacs on the Microsoft W32 API.
!    Copyright (C) 1992, 95, 99, 2000, 01, 04  Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
  
***************
*** 82,88 ****
     avoids the inefficiency of frequently reading small amounts of data.
     This is primarily necessary for handling DOS processes on Windows 95,
     but is useful for W32 processes on both Windows 95 and NT as well.  */
! Lisp_Object Vw32_pipe_read_delay;
  
  /* Control conversion of upper case file names to lower case.
     nil means no, t means yes. */
--- 82,88 ----
     avoids the inefficiency of frequently reading small amounts of data.
     This is primarily necessary for handling DOS processes on Windows 95,
     but is useful for W32 processes on both Windows 95 and NT as well.  */
! int w32_pipe_read_delay;
  
  /* Control conversion of upper case file names to lower case.
     nil means no, t means yes. */
***************
*** 367,373 ****
      cp->pid = -cp->pid;
  
    /* pid must fit in a Lisp_Int */
!   cp->pid = (cp->pid & VALMASK);
  
    *pPid = cp->pid;
  
--- 367,373 ----
      cp->pid = -cp->pid;
  
    /* pid must fit in a Lisp_Int */
!   cp->pid = cp->pid & INTMASK;
  
    *pPid = cp->pid;
  
***************
*** 2202,2208 ****
  them blocking when trying to access unmounted drives etc.  */);
    Vw32_start_process_inherit_error_mode = Qt;
  
!   DEFVAR_INT ("w32-pipe-read-delay", &Vw32_pipe_read_delay,
              doc: /* Forced delay before reading subprocess output.
  This is done to improve the buffering of subprocess output, by
  avoiding the inefficiency of frequently reading small amounts of data.
--- 2202,2208 ----
  them blocking when trying to access unmounted drives etc.  */);
    Vw32_start_process_inherit_error_mode = Qt;
  
!   DEFVAR_INT ("w32-pipe-read-delay", &w32_pipe_read_delay,
              doc: /* Forced delay before reading subprocess output.
  This is done to improve the buffering of subprocess output, by
  avoiding the inefficiency of frequently reading small amounts of data.
***************
*** 2211,2217 ****
  reading the subprocess output.  If negative, the magnitude is the number
  of time slices to wait (effectively boosting the priority of the child
  process temporarily).  A value of zero disables waiting entirely.  */);
!   Vw32_pipe_read_delay = 50;
  
    DEFVAR_LISP ("w32-downcase-file-names", &Vw32_downcase_file_names,
               doc: /* Non-nil means convert all-upper case file names to lower 
case.
--- 2211,2217 ----
  reading the subprocess output.  If negative, the magnitude is the number
  of time slices to wait (effectively boosting the priority of the child
  process temporarily).  A value of zero disables waiting entirely.  */);
!   w32_pipe_read_delay = 50;
  
    DEFVAR_LISP ("w32-downcase-file-names", &Vw32_downcase_file_names,
               doc: /* Non-nil means convert all-upper case file names to lower 
case.