(vc-do-command): Don't run command asynchronously when
operating in a remote directory.
This commit is contained in:
parent
b71c9e7554
commit
c58447fd8c
2 changed files with 6 additions and 0 deletions
|
@ -1,5 +1,8 @@
|
||||||
2005-02-27 Andreas Schwab <schwab@suse.de>
|
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
|
* net/tramp.el (tramp-file-name-for-operation): Fix misapplied
|
||||||
change from sync with Tramp 2.0.47.
|
change from sync with Tramp 2.0.47.
|
||||||
|
|
||||||
|
|
|
@ -958,6 +958,9 @@ that is inserted into the command line before the filename."
|
||||||
(mapconcat 'identity vc-path path-separator))
|
(mapconcat 'identity vc-path path-separator))
|
||||||
process-environment))
|
process-environment))
|
||||||
(w32-quote-process-args t))
|
(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)
|
(if (eq okstatus 'async)
|
||||||
(let ((proc (apply 'start-process command (current-buffer) command
|
(let ((proc (apply 'start-process command (current-buffer) command
|
||||||
squeezed)))
|
squeezed)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue