diff options
| -rw-r--r-- | lisp/subr.el | 13 |
1 files changed, 9 insertions, 4 deletions
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. | |||
| 846 | Third arg is command name, the name of a shell command. | 846 | Third arg is command name, the name of a shell command. |
| 847 | Remaining arguments are the arguments for the command. | 847 | Remaining arguments are the arguments for the command. |
| 848 | Wildcards and redirection are handled as usual in the shell." | 848 | Wildcards and redirection are handled as usual in the shell." |
| 849 | (if (eq system-type 'vax-vms) | 849 | (cond |
| 850 | (apply 'start-process name buffer args) | 850 | ((eq system-type 'vax-vms) |
| 851 | (start-process name buffer shell-file-name "-c" | 851 | (apply 'start-process name buffer args)) |
| 852 | (concat "exec " (mapconcat 'identity args " "))))) | 852 | ((eq system-type 'windows-nt) |
| 853 | (start-process name buffer shell-file-name shell-command-switch | ||
| 854 | (mapconcat 'identity args " "))) | ||
| 855 | (t | ||
| 856 | (start-process name buffer shell-file-name shell-command-switch | ||
| 857 | (concat "exec " (mapconcat 'identity args " ")))))) | ||
| 853 | 858 | ||
| 854 | (defmacro save-match-data (&rest body) | 859 | (defmacro save-match-data (&rest body) |
| 855 | "Execute the BODY forms, restoring the global value of the match data." | 860 | "Execute the BODY forms, restoring the global value of the match data." |