1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-06 15:41:27 -08:00

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

This commit is contained in:
Karl Heuer 1994-11-03 21:23:40 +00:00
parent 85cdd6afed
commit a247bf214e

View file

@ -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."