Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
eb1727a4
Commit
eb1727a4
authored
Jul 12, 2009
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* arc-mode.el (archive-find-type): Allow for a PK00 string before
the PK\003\004 header (Bug#3770).
parent
208384c5
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
1 deletion
+6
-1
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/arc-mode.el
lisp/arc-mode.el
+1
-1
No files found.
lisp/ChangeLog
View file @
eb1727a4
2009-07-12 Peter Jolly <peter@jollys.org> (tiny change)
* arc-mode.el (archive-find-type): Allow for a PK00 string before
the PK\003\004 header (Bug#3770).
2009-07-12 Guanpeng Xu <herberteuler@hotmail.com>
* pcomplete.el (pcomplete-comint-setup): Check for
...
...
lisp/arc-mode.el
View file @
eb1727a4
...
...
@@ -716,7 +716,7 @@ archive.
;; The funny [] here make it unlikely that the .elc file will be treated
;; as an archive by other software.
(
let
(
case-fold-search
)
(
cond
((
looking-at
"[P]K\003\004"
)
'zip
)
(
cond
((
looking-at
"
\\(PK00\\)?
[P]K\003\004"
)
'zip
)
((
looking-at
"..-l[hz][0-9ds]-"
)
'lzh
)
((
looking-at
"....................[\334]\247\304\375"
)
'zoo
)
((
and
(
looking-at
"\C-z"
)
; signature too simple, IMHO
...
...
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