From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 Aug 1996 20:13:29 +0000 (+0000)
Subject: (Vwin32_start_process_show_window): New variable.
X-Git-Tag: emacs-20.1~3944
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ecf7d369ae758847c4587ea5990a6cd0512663e;p=emacs.git

(Vwin32_start_process_show_window): New variable.
(create_child): Conditionally force subprocess to hide window.
(syms_of_ntproc): DEFVAR it.
---

diff --git a/src/w32proc.c b/src/w32proc.c
index 01ffd33bebb..71aa2b41a31 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -51,6 +51,10 @@ Boston, MA 02111-1307, USA.
    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 @@ create_child (char *exe, char *cmdline, char *env,
   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 @@ constructed (or arguments have already been quoted), so enabling this\n\
 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\