Mercurial > emacs
comparison lisp/arc-mode.el @ 107106:67f557473da4
from trunk
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 02 Feb 2010 13:15:15 +0900 |
| parents | bdf05c504564 |
| children | 00c6bb12d924 |
comparison
equal
deleted
inserted
replaced
| 107001:9378badc22ab | 107106:67f557473da4 |
|---|---|
| 1780 (if (= 1 (length files)) "" "s")) | 1780 (if (= 1 (length files)) "" "s")) |
| 1781 "\n")) | 1781 "\n")) |
| 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 (member-ignore-case (car archive-zip-extract) '("pkunzip" "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 (archive-extract-by-stdout |
| 1788 archive | |
| 1789 ;; unzip expands wildcards in NAME, so we need to quote it. | |
| 1790 ;; FIXME: Does pkunzip need similar treatment? | |
| 1791 (if (equal (car archive-zip-extract) "unzip") | |
| 1792 (shell-quote-argument name) | |
| 1793 name) | |
| 1794 archive-zip-extract))) | |
| 1788 | 1795 |
| 1789 (defun archive-zip-write-file-member (archive descr) | 1796 (defun archive-zip-write-file-member (archive descr) |
| 1790 (archive-*-write-file-member | 1797 (archive-*-write-file-member |
| 1791 archive | 1798 archive |
| 1792 descr | 1799 descr |