diff options
| author | Eli Zaretskii | 2015-06-08 17:22:44 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2015-06-08 17:22:44 +0300 |
| commit | a04d35cb02528c5584f01c1e3a2bbd86c943b221 (patch) | |
| tree | e1b8deba0cd006debcbad01798302c08778d844f | |
| parent | f1aa40f47d774d06f8798b5866051c78c4129ce5 (diff) | |
| download | emacs-a04d35cb02528c5584f01c1e3a2bbd86c943b221.tar.gz emacs-a04d35cb02528c5584f01c1e3a2bbd86c943b221.zip | |
Fix a thinko in arc-mode.el
* lisp/arc-mode.el (archive-zip-summarize): Fix last change in the
non-Zip64 case. (Bug#20769)
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files 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." | |||
| 1841 | (or (string= "PK\006\006" (buffer-substring p (+ p 4))) | 1841 | (or (string= "PK\006\006" (buffer-substring p (+ p 4))) |
| 1842 | (error "Unrecognized ZIP file format")) | 1842 | (error "Unrecognized ZIP file format")) |
| 1843 | ;; Offset to central directory: | 1843 | ;; Offset to central directory: |
| 1844 | (setq p (+ (point-min) | 1844 | (setq p (archive-l-e (+ p 48) (if emacs-int-has-32bits 4 8)))) |
| 1845 | (archive-l-e (+ p 48) (if emacs-int-has-32bits 4 8))))) | 1845 | (setq p (+ p (point-min))) |
| 1846 | (while (string= "PK\001\002" (buffer-substring p (+ p 4))) | 1846 | (while (string= "PK\001\002" (buffer-substring p (+ p 4))) |
| 1847 | (let* ((creator (byte-after (+ p 5))) | 1847 | (let* ((creator (byte-after (+ p 5))) |
| 1848 | ;; (method (archive-l-e (+ p 10) 2)) | 1848 | ;; (method (archive-l-e (+ p 10) 2)) |