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

operating in a remote directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 141eec983d93087bb81ce4b3f956f89237002757..e9cc351cec54c0338deedfc3c4c100e75b8c6324 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-02-27  Andreas Schwab  <schwab@suse.de>
 
+       * vc.el (vc-do-command): Don't run command asynchronously when
+       operating in a remote directory.
+
        * net/tramp.el (tramp-file-name-for-operation): Fix misapplied
        change from sync with Tramp 2.0.47.
 

diff --git a/lisp/vc.el b/lisp/vc.el
index 2daf100ff57b7c24ae1abbf4be7c11f9de616512..2e241e67f482e1800004fa2fb8648b62c48fea0f 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -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)))