[Emacs-diffs] Changes to emacs/lisp/arc-mode.el

[Richard M. Stallman]

Index: emacs/lisp/arc-mode.el
diff -c emacs/lisp/arc-mode.el:1.55 emacs/lisp/arc-mode.el:1.56
*** emacs/lisp/arc-mode.el:1.55 Tue May  6 01:08:32 2003
--- emacs/lisp/arc-mode.el      Fri May 23 08:45:49 2003
***************
*** 1416,1422 ****
      (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.
               (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.)
--- 1416,1423 ----
      (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 (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,1522 ****
                                   (length text))
                           visual)
              files (cons (vector prname ifnname fiddle mode (1- p))
!                           files)
!               p (+ p thsize 2 csize))))
      (goto-char (point-min))
      (set-buffer-multibyte default-enable-multibyte-characters)
      (let ((dash (concat (if archive-alternate-display
--- 1516,1527 ----
                                   (length text))
                           visual)
              files (cons (vector prname ifnname fiddle mode (1- p))
!                           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