aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorShuguang Sun2018-01-13 17:52:04 +0100
committerMichael Albinus2018-01-14 10:00:24 +0100
commit7a81586bd7250b24704f755b825121b5d13c7774 (patch)
tree77a9c630aaf538a562d8fc70814f3309a2bd3472
parent9b2c3c190acb26d7dd7393fed1079a21dd562f6f (diff)
downloademacs-7a81586bd7250b24704f755b825121b5d13c7774.tar.gz
emacs-7a81586bd7250b24704f755b825121b5d13c7774.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.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 0af68c1f1b2..79833eab288 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)