diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-01-15 12:03:38 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-01-15 12:03:38 -0800 |
| commit | 362b9d483c714a8fd87966ddbd8686850f870e34 (patch) | |
| tree | e37a94fe030c9361fa28b4f3f5c8910cc7ab8448 /lisp/jka-compr.el | |
| parent | dab7376027ea499962b2916652c6f30b40eac6d9 (diff) | |
| parent | 0ad254447b7542284a2eb3c63b0732edb9409af7 (diff) | |
| download | emacs-362b9d483c714a8fd87966ddbd8686850f870e34.tar.gz | |
Merge from emacs-23 branch.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 8c9866380b3..739fd3f1dd0 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -166,8 +166,11 @@ to keep: LEN chars starting BEG chars from the beginning." (unwind-protect (or (memq (call-process jka-compr-shell infile t nil "-c" + ;; Windows shells need the program file name + ;; after the pipe symbol be quoted if they use + ;; forward slashes as directory separators. (format - "%s %s 2> %s | %s bs=%d skip=%d %s 2> %s" + "%s %s 2> %s | \"%s\" bs=%d skip=%d %s 2> %s" prog (mapconcat 'identity args " ") err-file |