Mercurial > emacs

diff lisp/arc-mode.el @ 103871:819d4646794e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 febdeb5803fd
children 73bff1db57b6
line wrap: on
line diff
--- 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