Commit a04d35cb authored by Eli Zaretskii's avatar Eli Zaretskii

Fix a thinko in arc-mode.el

* lisp/arc-mode.el (archive-zip-summarize): Fix last change in the
non-Zip64 case.  (Bug#20769)
parent f1aa40f4
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment