diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-07-12 18:56:38 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-07-12 18:56:38 +0000 |
| commit | eb1727a44948a8b0e710fa1b1adb73fa1a623bd7 (patch) | |
| tree | 2ad46b5516e544f21efa80ac763269f777536b2b /lisp | |
| parent | 208384c5cf196bbefcc5c972ab02f32424c0c072 (diff) | |
| download | emacs-eb1727a44948a8b0e710fa1b1adb73fa1a623bd7.tar.gz | |
* arc-mode.el (archive-find-type): Allow for a PK00 string before
the PK\003\004 header (Bug#3770).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/arc-mode.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67c3b353032..70bb8c953c8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index cc59d6e5678..e812a47ddc6 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -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 |