changeset 15201:43551ec4b69d

(Vwin32_quote_process_args): New variable. (sys_spawnve): If Vwin32_quote_process_args, quote the args. (syms_of_ntproc): Set up Lisp variable.

--- a/src/w32proc.c	Fri May 10 16:05:26 1996 +0000
+++ b/src/w32proc.c	Fri May 10 20:29:43 1996 +0000
@@ -45,6 +45,12 @@
 #include "syswait.h"
 #include "process.h"
 
+/* Control whether spawnve quotes arguments as necessary to ensure
+   correct parsing by child process.  Because not all uses of spawnve
+   are careful about constructing argv arrays, we make this behaviour
+   conditional (off by default). */
+Lisp_Object Vwin32_quote_process_args;
+
 #ifndef SYS_SIGLIST_DECLARED
 extern char *sys_siglist[];
 #endif
@@ -595,16 +601,18 @@
 
       if (*p == 0)
 	add_quotes = 1;
-#if 0
-      /* Unfortunately, this causes more problems than it solves,
-	 because argv arrays are not always carefully constructed.
-	 grep, for instance, passes the whole command line as one
-	 argument, so it becomes impossible to pass a regexp which
-	 contains spaces. */
-      for ( ; *p; p++)
-	if (*p == ' ' || *p == '\t' || *p == '"')
-	  add_quotes = 1;
-#endif
+
+      if (!NILP (Vwin32_quote_process_args))
+	{
+	  /* This is conditional because it sometimes causes more
+	     problems than it solves, since argv arrays are not always
+	     carefully constructed.  M-x grep, for instance, passes the
+	     whole command line as one argument, so it becomes
+	     impossible to pass a regexp which contains spaces. */
+	  for ( ; *p; p++)
+	    if (*p == ' ' || *p == '\t' || *p == '"')
+	      add_quotes = 1;
+	}
       if (add_quotes)
 	{
 	  char * first;
@@ -1064,4 +1072,19 @@
   SetStdHandle (STD_ERROR_HANDLE, handles[2]);
 }
 
+
+syms_of_ntproc ()
+{
+  DEFVAR_LISP ("win32-quote-process-args", &Vwin32_quote_process_args,
+    "Non-nil enables quoting of process arguments to ensure correct parsing.\n\
+Because Windows does not directly pass argv arrays to child processes,\n\
+programs have to reconstruct the argv array by parsing the command\n\
+line string.  For an argument to contain a space, it must be enclosed\n\
+in double quotes or it will be parsed as multiple arguments.\n\
+\n\
+However, the argument list to call-process is not always correctly\n\
+constructed (or arguments have already been quoted), so enabling this\n\
+option may cause unexpected behavior.");
+  Vwin32_quote_process_args = Qnil;
+}
 /* end of ntproc.c */