Mercurial > emacs
diff lisp/arc-mode.el @ 107039:2220de986185
* arc-mode.el (archive-zip-extract): Quote the argument passed to unzip (Bug#5475).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 28 Jan 2010 15:06:36 -0500 |
parents | 1d1d5d9bd884 |
children | bdf05c504564 |
line wrap: on
line diff
--- a/lisp/arc-mode.el Thu Jan 28 14:53:11 2010 -0500 +++ b/lisp/arc-mode.el Thu Jan 28 15:06:36 2010 -0500 @@ -1784,7 +1784,10 @@ (defun archive-zip-extract (archive name) (if (equal (car archive-zip-extract) "pkzip") (archive-*-extract archive name archive-zip-extract) - (archive-extract-by-stdout archive name archive-zip-extract))) + ;; unzip expands wildcards in NAME, so we need to quote it. + ;; FIXME: Does pkzip need similar treatment? + (archive-extract-by-stdout archive (shell-quote-argument name) + archive-zip-extract))) (defun archive-zip-write-file-member (archive descr) (archive-*-write-file-member