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 |