mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2002-11-08 23:42:15 +00:00
parent c2801b5048
commit 8627813e5b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/arc-mode.el
View file

@ -1577,7 +1577,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
(defun archive-zip-summarize () (defun archive-zip-summarize ()
(goto-char (- (point-max) (- 22 18))) (goto-char (- (point-max) (- 22 18)))
(search-backward-regexp "[P]K\005\006") (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) (maxlen 8)
(totalsize 0) (totalsize 0)
files files