[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a04d35c: Fix a thinko in arc-mode.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master a04d35c: Fix a thinko in arc-mode.el |
Date: |
Mon, 08 Jun 2015 14:23:33 +0000 |
branch: master
commit a04d35cb02528c5584f01c1e3a2bbd86c943b221
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 5f2fc8f..4df41b5 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a04d35c: Fix a thinko in arc-mode.el,
Eli Zaretskii <=