Mercurial > emacs
changeset 16000:b5ecd5022991
(Vwin32_start_process_show_window): New variable.
(create_child): Conditionally force subprocess to hide window.
(syms_of_ntproc): DEFVAR it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Aug 1996 20:13:29 +0000 |
| parents | 0e148af7d4ec |
| children | 36d2c4a8e064 |
| files | src/w32proc.c |
| diffstat | 1 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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\