958 |
(mapconcat 'identity vc-path path-separator)) |
(mapconcat 'identity vc-path path-separator)) |
959 |
process-environment)) |
process-environment)) |
960 |
(w32-quote-process-args t)) |
(w32-quote-process-args t)) |
961 |
|
(if (and (eq okstatus 'async) (file-remote-p default-directory)) |
962 |
|
;; start-process does not support remote execution |
963 |
|
(setq okstatus nil)) |
964 |
(if (eq okstatus 'async) |
(if (eq okstatus 'async) |
965 |
(let ((proc (apply 'start-process command (current-buffer) command |
(let ((proc (apply 'start-process command (current-buffer) command |
966 |
squeezed))) |
squeezed))) |