[Emacs-diffs] emacs/lisp ChangeLog arc-mode.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/07/12 18:56:41

Modified files:
        lisp           : ChangeLog arc-mode.el 

Log message:
        * arc-mode.el (archive-find-type): Allow for a PK00 string before
        the PK\003\004 header (Bug#3770).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15798&r2=1.15799
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/arc-mode.el?cvsroot=emacs&r1=1.98&r2=1.99

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15798
retrieving revision 1.15799
diff -u -b -r1.15798 -r1.15799
--- ChangeLog   12 Jul 2009 16:20:50 -0000      1.15798
+++ ChangeLog   12 Jul 2009 18:56:38 -0000      1.15799
@@ -1,3 +1,8 @@
+2009-07-12  Peter Jolly  <address@hidden>  (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  <address@hidden>
 
        * pcomplete.el (pcomplete-comint-setup): Check for

Index: arc-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/arc-mode.el,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- arc-mode.el 26 Mar 2009 01:19:54 -0000      1.98
+++ arc-mode.el 12 Jul 2009 18:56:41 -0000      1.99
@@ -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