Mercurial > emacs

changeset 51158:00d0f607793b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-lzh-summarize): Calculate correct total header size for LZH level 1 header.
author Richard M. Stallman <rms@gnu.org>
date Fri, 23 May 2003 12:45:49 +0000
parents aa7ae88aeb60
children 7d324048f346
files lisp/arc-mode.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Fri May 23 10:10:24 2003 +0000
+++ b/lisp/arc-mode.el	Fri May 23 12:45:49 2003 +0000
@@ -1416,7 +1416,8 @@
     (while (progn (goto-char p)		;beginning of a base header.
 		  (looking-at "\\(.\\|\n\\)\\(.\\|\n\\)-l[hz][0-9ds]-"))
       (let* ((hsize   (char-after p))	;size of the base header (level 0 and 1)
-             (csize   (archive-l-e (+ p 7) 4)) ;size of a compressed file to follow.
+	     (csize   (archive-l-e (+ p 7) 4)) ;size of a compressed file to follow (level 0 and 2),
+					;size of extended headers + the compressed file to follow (level 1).
              (ucsize  (archive-l-e (+ p 11) 4))	;size of an uncompressed file.
 	     (time1   (archive-l-e (+ p 15) 2))	;date/time (MSDOS format in level 0, 1 headers
 	     (time2   (archive-l-e (+ p 17) 2))	;and UNIX format in level 2 header.)
@@ -1515,8 +1516,12 @@
 				   (length text))
 			   visual)
 	      files (cons (vector prname ifnname fiddle mode (1- p))
-                          files)
-              p (+ p thsize 2 csize))))
+                          files))
+	(cond ((= hdrlvl 1)
+	       (setq p (+ p hsize 2 csize)))
+	      ((or (= hdrlvl 2) (= hdrlvl 0))
+	       (setq p (+ p thsize 2 csize))))
+	))
     (goto-char (point-min))
     (set-buffer-multibyte default-enable-multibyte-characters)
     (let ((dash (concat (if archive-alternate-display