andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a thinko in arc-mode.el

Browse source 
* lisp/arc-mode.el (archive-zip-summarize): Fix last change in the
non-Zip64 case.  (Bug#20769)
This commit is contained in:
Eli Zaretskii 2015-06-08 17:22:44 +03:00
parent f1aa40f47d
commit a04d35cb02
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/arc-mode.el
View file

@ -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))