From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 3 Nov 1994 21:23:40 +0000 (+0000)
Subject: (start-process-shell-command): Don't use exec on windows-nt.
X-Git-Tag: emacs-19.34~6033
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a247bf214e7acb00454cb682fbdfcfbac00a1859;p=emacs.git

(start-process-shell-command): Don't use exec on windows-nt.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index b623658e8df..b0c718a7601 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -846,10 +846,15 @@ BUFFER is the buffer or (buffer-name) to associate with the process.
 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."