Mercurial > emacs
changeset 103871:819d4646794e
* arc-mode.el (archive-find-type): Allow for a PK00 string before
the PK\003\004 header (Bug#3770).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 12 Jul 2009 18:56:38 +0000 |
| parents | a75fa842931b |
| children | b80dd52f140c |
| files | lisp/ChangeLog lisp/arc-mode.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jul 12 16:20:50 2009 +0000 +++ b/lisp/ChangeLog Sun Jul 12 18:56:38 2009 +0000 @@ -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
--- a/lisp/arc-mode.el Sun Jul 12 16:20:50 2009 +0000 +++ b/lisp/arc-mode.el Sun Jul 12 18:56:38 2009 +0000 @@ -716,7 +716,7 @@ ;; 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