diff options
| author | Shuguang Sun | 2018-01-13 17:52:04 +0100 |
|---|---|---|
| committer | Michael Albinus | 2018-01-13 17:52:04 +0100 |
| commit | 7f52a102ad8234dbfe59a005034c7fc3e4fe538c (patch) | |
| tree | 490b574d7f69a97981f76c57fdfdc473710626a5 | |
| parent | 45ebf3afc64761af2dfd8712451e893d4c2ddbcc (diff) | |
| download | emacs-7f52a102ad8234dbfe59a005034c7fc3e4fe538c.tar.gz emacs-7f52a102ad8234dbfe59a005034c7fc3e4fe538c.zip | |
Fix Bug#29149 in dired-aux.el
* lisp/dired-aux.el (dired-shell-stuff-it): Handle remote
commands on w32 properly. (Bug#29149)
| -rw-r--r-- | lisp/dired-aux.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 7fff7e7a240..223b254c4ba 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -794,15 +794,16 @@ can be produced by `dired-get-marked-files', for example." | |||
| 794 | (and in-background (not sequentially) (not (eq system-type 'ms-dos)))) | 794 | (and in-background (not sequentially) (not (eq system-type 'ms-dos)))) |
| 795 | (w32-shell (and (fboundp 'w32-shell-dos-semantics) | 795 | (w32-shell (and (fboundp 'w32-shell-dos-semantics) |
| 796 | (w32-shell-dos-semantics))) | 796 | (w32-shell-dos-semantics))) |
| 797 | (file-remote (file-remote-p default-directory)) | ||
| 797 | ;; The way to run a command in background in Windows shells | 798 | ;; The way to run a command in background in Windows shells |
| 798 | ;; is to use the START command. The /B switch means not to | 799 | ;; is to use the START command. The /B switch means not to |
| 799 | ;; create a new window for the command. | 800 | ;; create a new window for the command. |
| 800 | (cmd-prefix (if w32-shell "start /b " "")) | 801 | (cmd-prefix (if (and w32-shell (not file-remote)) "start /b " "")) |
| 801 | ;; Windows shells don't support chaining with ";", they use | 802 | ;; Windows shells don't support chaining with ";", they use |
| 802 | ;; "&" instead. | 803 | ;; "&" instead. |
| 803 | (cmd-sep (if (and (not w32-shell) (not parallel-in-background)) | 804 | (cmd-sep (if (and (or (not w32-shell) file-remote) |
| 804 | ";" | 805 | (not parallel-in-background)) |
| 805 | "&")) | 806 | ";" "&")) |
| 806 | (stuff-it | 807 | (stuff-it |
| 807 | (if (dired--star-or-qmark-p command nil 'keep) | 808 | (if (dired--star-or-qmark-p command nil 'keep) |
| 808 | (lambda (x) | 809 | (lambda (x) |