From a04d35cb02528c5584f01c1e3a2bbd86c943b221 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 8 Jun 2015 17:22:44 +0300 Subject: [PATCH] Fix a thinko in arc-mode.el * lisp/arc-mode.el (archive-zip-summarize): Fix last change in the non-Zip64 case. (Bug#20769) --- lisp/arc-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 5f2fc8f3804..4df41b5613c 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1841,8 +1841,8 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." (or (string= "PK\006\006" (buffer-substring p (+ p 4))) (error "Unrecognized ZIP file format")) ;; Offset to central directory: - (setq p (+ (point-min) - (archive-l-e (+ p 48) (if emacs-int-has-32bits 4 8))))) + (setq p (archive-l-e (+ p 48) (if emacs-int-has-32bits 4 8)))) + (setq p (+ p (point-min))) (while (string= "PK\001\002" (buffer-substring p (+ p 4))) (let* ((creator (byte-after (+ p 5))) ;; (method (archive-l-e (+ p 10) 2)) -- 2.11.4.GIT