Mercurial > emacs
comparison lisp/arc-mode.el @ 48226:65903e252ec1
(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 | a4e14fc34d3d |
| children | 05ad80e1c6d2 |
comparison
equal
deleted
inserted
replaced
| 48225:75ced2cd606e | 48226:65903e252ec1 |
|---|---|
| 1575 ;; Section: Zip Archives | 1575 ;; Section: Zip Archives |
| 1576 | 1576 |
| 1577 (defun archive-zip-summarize () | 1577 (defun archive-zip-summarize () |
| 1578 (goto-char (- (point-max) (- 22 18))) | 1578 (goto-char (- (point-max) (- 22 18))) |
| 1579 (search-backward-regexp "[P]K\005\006") | 1579 (search-backward-regexp "[P]K\005\006") |
| 1580 (let ((p (1+ (archive-l-e (+ (point) 16) 4))) | 1580 (let ((p (+ (point-min) (archive-l-e (+ (point) 16) 4))) |
| 1581 (maxlen 8) | 1581 (maxlen 8) |
| 1582 (totalsize 0) | 1582 (totalsize 0) |
| 1583 files | 1583 files |
| 1584 visual) | 1584 visual) |
| 1585 (while (string= "PK\001\002" (buffer-substring p (+ p 4))) | 1585 (while (string= "PK\001\002" (buffer-substring p (+ p 4))) |