mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* arc-mode.el (archive-find-type): Allow for a PK00 string before

Browse source 
the PK\003\004 header (Bug#3770).
This commit is contained in:
Chong Yidong 2009-07-12 18:56:38 +00:00
parent 208384c5cf
commit eb1727a449
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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

2
lisp/arc-mode.el
View file

@ -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