From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 8 Nov 2002 23:42:15 +0000 (+0000)
Subject: (archive-zip-summarize): Don't hardcode (point-min) = 1.
X-Git-Tag: ttn-vms-21-2-B4~12535
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8627813e5b807f2e9f70819a54130e7bf319ab29;p=emacs.git

(archive-zip-summarize): Don't hardcode (point-min) = 1.
---

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 7265cb09045..32cc3fb27c3 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1577,7 +1577,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
 (defun archive-zip-summarize ()
   (goto-char (- (point-max) (- 22 18)))
   (search-backward-regexp "[P]K\005\006")
-  (let ((p (1+ (archive-l-e (+ (point) 16) 4)))
+  (let ((p (+ (point-min) (archive-l-e (+ (point) 16) 4)))
         (maxlen 8)
 	(totalsize 0)
         files