# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841522409 0
# Node ID b5ecd5022991349e94aa6bbd971cd6cfcff47095
# Parent  0e148af7d4ecb348c062b85fd7ad98821677fc78
(Vwin32_start_process_show_window): New variable.
(create_child): Conditionally force subprocess to hide window.
(syms_of_ntproc): DEFVAR it.

diff -r 0e148af7d4ec -r b5ecd5022991 src/w32proc.c
--- a/src/w32proc.c	Sat Aug 31 20:12:15 1996 +0000
+++ b/src/w32proc.c	Sat Aug 31 20:13:29 1996 +0000
@@ -51,6 +51,10 @@
    conditional (off by default). */
 Lisp_Object Vwin32_quote_process_args;
 
+/* Control whether create_child causes the process' window to be
+   hidden.  The default is nil. */
+Lisp_Object Vwin32_start_process_show_window;
+
 /* Time to sleep before reading from a subprocess output pipe - this
    avoids the inefficiency of frequently reading small amounts of data.
    This is primarily necessary for handling DOS processes on Windows 95,
@@ -284,7 +288,10 @@
   start.cb = sizeof (start);
   
 #ifdef HAVE_NTGUI
-  start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
+  if (NILP (Vwin32_start_process_show_window))
+    start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
+  else
+    start.dwFlags = STARTF_USESTDHANDLES;
   start.wShowWindow = SW_HIDE;
 
   start.hStdInput = GetStdHandle (STD_INPUT_HANDLE);
@@ -1244,6 +1251,12 @@
 option may cause unexpected behavior.");
   Vwin32_quote_process_args = Qnil;
 
+  DEFVAR_LISP ("win32-start-process-show-window",
+	       &Vwin32_start_process_show_window,
+    "When nil, processes started via start-process hide their windows.\n\
+When non-nil, they show their window in the method of their choice.");
+  Vwin32_start_process_show_window = Qnil;
+
   DEFVAR_INT ("win32-pipe-read-delay", &Vwin32_pipe_read_delay,
     "Forced delay before reading subprocess output.\n\
 This is done to improve the buffering of subprocess output, by\n\