# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 783897820 0
# Node ID 248462096d253b30b247af086606a824e8731957
# Parent  f1cb7ef9e9bca2812b55decd92142bc422f01b3f
(start-process-shell-command): Don't use exec on windows-nt.

diff -r f1cb7ef9e9bc -r 248462096d25 lisp/subr.el
--- a/lisp/subr.el	Thu Nov 03 21:11:43 1994 +0000
+++ b/lisp/subr.el	Thu Nov 03 21:23:40 1994 +0000
@@ -846,10 +846,15 @@
 Third arg is command name, the name of a shell command.
 Remaining arguments are the arguments for the command.
 Wildcards and redirection are handled as usual in the shell."
-  (if (eq system-type 'vax-vms)
-      (apply 'start-process name buffer args)
-    (start-process name buffer shell-file-name "-c"
-		   (concat "exec " (mapconcat 'identity args " ")))))
+  (cond
+   ((eq system-type 'vax-vms)
+    (apply 'start-process name buffer args))
+   ((eq system-type 'windows-nt)
+    (start-process name buffer shell-file-name shell-command-switch
+		   (mapconcat 'identity args " ")))
+   (t
+    (start-process name buffer shell-file-name shell-command-switch
+		   (concat "exec " (mapconcat 'identity args " "))))))
 
 (defmacro save-match-data (&rest body)
   "Execute the BODY forms, restoring the global value of the match data."