(re_max_failures): Reduce to 8000.

[gnu-emacs] / src / w32.c

diff --git a/src/w32.c b/src/w32.c
index bf9f858b700eb20dc108d9b71cfe90e1c23881b6..845203a774e42deff4475e5c76afc4c67ee89ab6 100644 (file)
--- a/src/w32.c
+++ b/src/w32.c
@@ -724,9 +724,6 @@ get_volume_info (const char * name, const char ** pPath)
        }
       while ( *name );
 
-      if (slashes > 1)
-       return FALSE;
-
       *str++ = '\\';
       *str = 0;
     }
@@ -1755,6 +1752,9 @@ sys_pipe (int * phandles)
   return rc;
 }
 
+/* From ntproc.c */
+extern Lisp_Object Vwin32_pipe_read_delay;
+
 /* Function to do blocking read of one byte, needed to implement
    select.  It is only allowed on sockets and pipes. */
 int
@@ -1781,8 +1781,30 @@ _sys_read_ahead (int fd)
   cp->status = STATUS_READ_IN_PROGRESS;
   
   if (fd_info[fd].flags & FILE_PIPE)
-    /* Use read to get CRLF translation */
-    rc = _read (fd, &cp->chr, sizeof (char));
+    {
+      /* Use read to get CRLF translation */
+      rc = _read (fd, &cp->chr, sizeof (char));
+
+      /* Give subprocess time to buffer some more output for us before
+        reporting that input is available; we need this because Win95
+        connects DOS programs to pipes by making the pipe appear to be
+        the normal console stdout - as a result most DOS programs will
+        write to stdout without buffering, ie.  one character at a
+        time.  Even some Win32 programs do this - "dir" in a command
+        shell on NT is very slow if we don't do this. */
+      if (rc > 0)
+       {
+         int wait = XINT (Vwin32_pipe_read_delay);
+
+         if (wait > 0)
+           Sleep (wait);
+         else if (wait < 0)
+           while (++wait <= 0)
+             /* Yield remainder of our time slice, effectively giving a
+                temporary priority boost to the child process. */
+             Sleep (0);
+       }
+    }
 #ifdef HAVE_SOCKETS
   else if (fd_info[fd].flags & FILE_SOCKET)
     rc = pfn_recv (SOCK_HANDLE (fd), &cp->chr, sizeof (char), 0);
@@ -1956,6 +1978,9 @@ term_ntproc ()
 #endif
 }
 
+extern BOOL can_run_dos_process;
+extern BOOL dos_process_running;
+
 void
 init_ntproc ()
 {
@@ -2023,6 +2048,10 @@ init_ntproc ()
     fdopen (2, "w");
   }
 
+  /* Only allow Emacs to run DOS programs on Win95. */
+  can_run_dos_process = (GetVersion () & 0x80000000);
+  dos_process_running = FALSE;
+
   /* unfortunately, atexit depends on implementation of malloc */
   /* atexit (term_ntproc); */
   signal (SIGABRT, term_ntproc);