From: Juri Linkov <juri@jurta.org>
Date: Mon, 1 Feb 2010 22:35:04 +0000 (+0200)
Subject: * arc-mode.el (archive-zip-extract): Use `member-ignore-case' to
X-Git-Tag: emacs-pretest-23.1.93~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ba973c19390ff813c5dd072df4b30ea2731a682;p=emacs.git

* arc-mode.el (archive-zip-extract): Use `member-ignore-case' to
compare with "pkunzip" and "pkzip" instead of only "pkzip".
In the `archive-extract-by-stdout' branch use `shell-quote-argument'
only when (car archive-zip-extract) is "unzip".  (Bug#5475)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f52b138c2d..b3de5b8baed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2010-02-01  Juri Linkov  <juri@jurta.org>
+
+	* arc-mode.el (archive-zip-extract): Use `member-ignore-case' to
+	compare with "pkunzip" and "pkzip" instead of only "pkzip".
+	In the `archive-extract-by-stdout' branch use `shell-quote-argument'
+	only when (car archive-zip-extract) is "unzip".  (Bug#5475)
+
 2010-02-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* doc-view.el (doc-view-new-window-function): Be a bit more defensive.
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4a0576fdded..ee32d893654 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1782,12 +1782,16 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
     (apply 'vector (nreverse files))))
 
 (defun archive-zip-extract (archive name)
-  (if (equal (car archive-zip-extract) "pkzip")
+  (if (member-ignore-case (car archive-zip-extract) '("pkunzip" "pkzip"))
       (archive-*-extract 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)))
+    (archive-extract-by-stdout
+     archive
+     ;; unzip expands wildcards in NAME, so we need to quote it.
+     ;; FIXME: Does pkunzip need similar treatment?
+     (if (equal (car archive-zip-extract) "unzip")
+	 (shell-quote-argument name)
+       name)
+     archive-zip-extract)))
 
 (defun archive-zip-write-file-member (archive descr)
   (archive-*-write-file-member