Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
91f50d61
Commit
91f50d61
authored
May 19, 2002
by
Richard M. Stallman
Browse files
Fix previous change.
parent
f44a616b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
18 additions
and
3 deletions
+18
-3
lisp/ChangeLog
lisp/ChangeLog
+15
-0
lisp/arc-mode.el
lisp/arc-mode.el
+3
-3
No files found.
lisp/ChangeLog
View file @
91f50d61
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):
...
...
lisp/arc-mode.el
View file @
91f50d61
...
...
@@ -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
"
pk
zip"
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
"
pk
zip"
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
"
pk
zip"
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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment