diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2010-12-10 13:56:44 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2010-12-10 13:56:44 +0200 |
| commit | 72a446736e19bd2caf81006f4e9711bd6c80de41 (patch) | |
| tree | 48de09942a22ee03278ad1a6ec98e58497fce40e /lisp/arc-mode.el | |
| parent | 66f782de2eb1eb3fad467d76a46e847092e2aa5a (diff) | |
| download | emacs-72a446736e19bd2caf81006f4e9711bd6c80de41.tar.gz | |
arc-mode.el (archive-zip-extract): If w32-quote-process-args is nil, do quote
archive member names. Suggested by hm <helmut.muelner@joanneum.at>.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index a86203a47db..4a80b74e958 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1813,10 +1813,12 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." archive ;; unzip expands wildcards in NAME, so we need to quote it. But ;; not on DOS/Windows, since that fails extraction on those - ;; systems, and file names with wildcards in zip archives don't - ;; work there anyway. + ;; systems (unless w32-quote-process-args is nil), and file names + ;; with wildcards in zip archives don't work there anyway. ;; FIXME: Does pkunzip need similar treatment? - (if (and (not (memq system-type '(windows-nt ms-dos))) + (if (and (or (not (memq system-type '(windows-nt ms-dos))) + (and (boundp 'w32-quote-process-args) + (null w32-quote-process-args))) (equal (car archive-zip-extract) "unzip")) (shell-quote-argument name) name) |