Mercurial > emacs
changeset 9822:248462096d25
(start-process-shell-command): Don't use exec on windows-nt.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 03 Nov 1994 21:23:40 +0000 |
| parents | f1cb7ef9e9bc |
| children | e6dbda62fd61 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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."