diff options
author | Richard M. Stallman <[email protected]> | 2002-05-19 16:03:51 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-05-19 16:03:51 +0000 |
commit | 91f50d610e3d6a2338f1752f65574babfe470d62 (patch) | |
tree | 1ba5da78b1077c365dde51341766febaf58114e2 /lisp/arc-mode.el | |
parent | f44a616b703657a36aee3dfcd190935e968d6f86 (diff) |
Fix previous change.
Diffstat (limited to 'lisp/arc-mode.el')
-rw-r--r-- | lisp/arc-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 1792c54502..7265cb0904 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -235,7 +235,7 @@ expected to extract to a file junking the directory part of the name." (defcustom archive-zip-expunge (if (locate-file "zip" nil 'file-executable-p) '("zip" "-d" "-q") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-d") '("zip" "-d" "-q"))) "*Program and its options to run in order to delete zip file members. @@ -249,7 +249,7 @@ Archive and member names will be added." (defcustom archive-zip-update (if (locate-file "zip" nil 'file-executable-p) '("zip" "-q") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-u" "-P") '("zip" "-q"))) "*Program and its options to run in order to update a zip file member. @@ -264,7 +264,7 @@ file. Archive and member name will be added." (defcustom archive-zip-update-case (if (locate-file "zip" nil 'file-executable-p) '("zip" "-q" "-k") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-u" "-P") '("zip" "-q" "-k"))) "*Program and its options to run in order to update a case fiddled zip member. |