Commit 91f50d61 authored by Richard M. Stallman's avatar Richard M. Stallman

Fix previous change.

parent f44a616b
2002-05-19 Richard M. Stallman <rms@gnu.org>
* arc-mode.el (archive-zip-use-pkzip): Variable deleted.
(archive-zip-extract, archive-zip-expunge, archive-zip-update)
(archive-zip-update-case): Use locate-file to decide whether
to use pkzip.
(archive-zip-extract): Test for pkzip in value of archive-zip-extract.
* files.el (locate-file): Doc fix.
2002-05-19 John Paul Wallington <jpw@shootybangbang.com>
* mail/rmail.el (rmail-show-message-hook): Offer `goto-address'
as an option.
2002-05-18 Stefan Monnier <monnier@cs.yale.edu>
* uniquify.el (uniquify-rationalize-file-buffer-names):
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment