Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
107038:d91412f9e8e4 | 107039:2220de986185 |
---|---|
1782 (apply 'vector (nreverse files)))) | 1782 (apply 'vector (nreverse files)))) |
1783 | 1783 |
1784 (defun archive-zip-extract (archive name) | 1784 (defun archive-zip-extract (archive name) |
1785 (if (equal (car archive-zip-extract) "pkzip") | 1785 (if (equal (car archive-zip-extract) "pkzip") |
1786 (archive-*-extract archive name archive-zip-extract) | 1786 (archive-*-extract archive name archive-zip-extract) |
1787 (archive-extract-by-stdout archive name archive-zip-extract))) | 1787 ;; unzip expands wildcards in NAME, so we need to quote it. |
1788 ;; FIXME: Does pkzip need similar treatment? | |
1789 (archive-extract-by-stdout archive (shell-quote-argument name) | |
1790 archive-zip-extract))) | |
1788 | 1791 |
1789 (defun archive-zip-write-file-member (archive descr) | 1792 (defun archive-zip-write-file-member (archive descr) |
1790 (archive-*-write-file-member | 1793 (archive-*-write-file-member |
1791 archive | 1794 archive |
1792 descr | 1795 descr |