Mercurial > emacs

diff lisp/arc-mode.el @ 107039:2220de986185

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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