diff options
| author | Michael Albinus | 2008-08-14 19:28:44 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-08-14 19:28:44 +0000 |
| commit | 4d3d4310d8bc0f94f2af772ac2a26509aeefa9b3 (patch) | |
| tree | e97e141cfb6bb56fc0a6d31c2353701be734dc7d | |
| parent | 66c410cec5064a6b2164b7e90c215efcb520b65d (diff) | |
| download | emacs-4d3d4310d8bc0f94f2af772ac2a26509aeefa9b3.tar.gz emacs-4d3d4310d8bc0f94f2af772ac2a26509aeefa9b3.zip | |
* vc-dispatcher.el (vc-do-command): Let asynchronous processes run
also for remote directories.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc-dispatcher.el | 3 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5708a462add..f22eebe07fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2008-08-14 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * vc-dispatcher.el (vc-do-command): Let asynchronous processes run | ||
| 4 | also for remote directories. | ||
| 5 | |||
| 1 | 2008-08-14 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2008-08-14 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * emacs-lisp/easymenu.el (easy-menu-add): Don't precompute keybindings | 8 | * emacs-lisp/easymenu.el (easy-menu-add): Don't precompute keybindings |
diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el index d4ebb398e98..ce12e4afd1c 100644 --- a/lisp/vc-dispatcher.el +++ b/lisp/vc-dispatcher.el | |||
| @@ -324,9 +324,6 @@ that is inserted into the command line before the filename." | |||
| 324 | (mapconcat 'identity vc-path path-separator)) | 324 | (mapconcat 'identity vc-path path-separator)) |
| 325 | process-environment)) | 325 | process-environment)) |
| 326 | (w32-quote-process-args t)) | 326 | (w32-quote-process-args t)) |
| 327 | (when (and (eq okstatus 'async) (file-remote-p default-directory)) | ||
| 328 | ;; start-process does not support remote execution | ||
| 329 | (setq okstatus nil)) | ||
| 330 | (if (eq okstatus 'async) | 327 | (if (eq okstatus 'async) |
| 331 | ;; Run asynchronously. | 328 | ;; Run asynchronously. |
| 332 | (let ((proc | 329 | (let ((proc |