Mercurial > emacs
comparison lisp/vc.el @ 60289:68f16372ee5a
(vc-do-command): Don't run command asynchronously when
operating in a remote directory.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 27 Feb 2005 18:38:08 +0000 |
| parents | aac0a33f5772 |
| children | 27c2765e06c8 92c8be21e2c3 e4694597cbf4 |
comparison
equal
deleted
inserted
replaced
| 60288:5a1957ac3419 | 60289:68f16372ee5a |
|---|---|
| 956 (cons (concat "PATH=" (getenv "PATH") | 956 (cons (concat "PATH=" (getenv "PATH") |
| 957 path-separator | 957 path-separator |
| 958 (mapconcat 'identity vc-path path-separator)) | 958 (mapconcat 'identity vc-path path-separator)) |
| 959 process-environment)) | 959 process-environment)) |
| 960 (w32-quote-process-args t)) | 960 (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)) | |
| 961 (if (eq okstatus 'async) | 964 (if (eq okstatus 'async) |
| 962 (let ((proc (apply 'start-process command (current-buffer) command | 965 (let ((proc (apply 'start-process command (current-buffer) command |
| 963 squeezed))) | 966 squeezed))) |
| 964 (unless (active-minibuffer-window) | 967 (unless (active-minibuffer-window) |
| 965 (message "Running %s in the background..." command)) | 968 (message "Running %s in the background..." command)) |