;;; vc-dispatcher.el -- generic command-dispatcher facility.
-;; Copyright (C) 2008
+;; Copyright (C) 2008, 2009
;; Free Software Foundation, Inc.
;; Author: FSF (see below for full credits)
(mapconcat 'identity vc-path path-separator))
process-environment))
(w32-quote-process-args t))
- (when (and (eq okstatus 'async) (file-remote-p default-directory))
- ;; start-process does not support remote execution
- (setq okstatus nil))
(if (eq okstatus 'async)
;; Run asynchronously.
(let ((proc