[Emacs-diffs] emacs/lisp files.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/08/28 23:48:47

Modified files:
        lisp           : files.el 

Log message:
        (magic-fallback-mode-alist): Add ZIP magic number
        associated with `archive-mode'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1072&r2=1.1073

Patches:
Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1072
retrieving revision 1.1073
diff -u -b -r1.1072 -r1.1073
--- files.el    28 Aug 2009 17:02:56 -0000      1.1072
+++ files.el    28 Aug 2009 23:48:46 -0000      1.1073
@@ -2402,6 +2402,7 @@
 
 (defvar magic-fallback-mode-alist
   `((image-type-auto-detected-p . image-mode)
+    ("\\(PK00\\)?[P]K\003\004" . archive-mode) ; zip
     ;; The < comes before the groups (but the first) to reduce backtracking.
     ;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.
     ;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely.