1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 2c695c1d4bd..a23408a0beb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2402,6 +2402,7 @@ If FUNCTION is nil, then it is not called.  (That is a way of saying
 (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.

diff --git a/lisp/files.el b/lisp/files.el index 2c695c1d4bd..a23408a0beb 100644 --- a/lisp/files.el +++ b/lisp/files.el
@@ -2402,6 +2402,7 @@ If FUNCTION is nil, then it is not called. (That is a way of saying
2402		2402
2403	(defvar magic-fallback-mode-alist	2403	(defvar magic-fallback-mode-alist
2404	`((image-type-auto-detected-p . image-mode)	2404	`((image-type-auto-detected-p . image-mode)
		2405	("\\(PK00\\)?[P]K\003\004" . archive-mode) ; zip
2405	;; The < comes before the groups (but the first) to reduce backtracking.	2406	;; The < comes before the groups (but the first) to reduce backtracking.
2406	;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.	2407	;; TODO: UTF-16 <?xml may be preceded by a BOM 0xff 0xfe or 0xfe 0xff.
2407	;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely.	2408	;; We use [ \t\r\n] instead of `\\s ' to make regex overflow less likely.