(vc-do-command): Don't run command asynchronously when

operating in a remote directory.
This commit is contained in:
Andreas Schwab 2005-02-27 18:38:48 +00:00
parent b71c9e7554
commit c58447fd8c
2 changed files with 6 additions and 0 deletions

View file

@ -958,6 +958,9 @@ that is inserted into the command line before the filename."
(mapconcat 'identity vc-path path-separator))
process-environment))
(w32-quote-process-args t))
(if (and (eq okstatus 'async) (file-remote-p default-directory))
;; start-process does not support remote execution
(setq okstatus nil))
(if (eq okstatus 'async)
(let ((proc (apply 'start-process command (current-buffer) command
squeezed)))