Mercurial > emacs

changeset 48226:65903e252ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-zip-summarize): Don't hardcode (point-min) = 1.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 08 Nov 2002 23:42:15 +0000
parents 75ced2cd606e
children efcead0d345a
files lisp/arc-mode.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Fri Nov 08 23:39:29 2002 +0000
+++ b/lisp/arc-mode.el	Fri Nov 08 23:42:15 2002 +0000
@@ -1577,7 +1577,7 @@
 (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