Fix a thinko in arc-mode.el

* lisp/arc-mode.el (archive-zip-summarize): Fix last change in the
non-Zip64 case.  (Bug#20769)

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 5f2fc8f380419097f92ec07607dae22561e81864..4df41b5613c8bce0c4bfca6a5c7f8b8295fd90ae 100644 (file)
--- 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))