diff lisp/arc-mode.el @ 12304:3cf4df625c3b

(archive-zip-summarize): Handle per-file comments in central directory.
author Richard M. Stallman <rms@gnu.org>
date Sun, 18 Jun 1995 16:24:51 +0000
parents 8e31a35ac027
children c3597b66e4bf
line wrap: on
line diff
--- a/lisp/arc-mode.el	Sun Jun 18 14:43:23 1995 +0000
+++ b/lisp/arc-mode.el	Sun Jun 18 16:24:51 1995 +0000
@@ -1339,6 +1339,7 @@
              (ucsize  (archive-l-e (+ p 24) 4))
              (fnlen   (archive-l-e (+ p 28) 2))
              (exlen   (archive-l-e (+ p 30) 2))
+             (fclen   (archive-l-e (+ p 32) 2))
              (lheader (archive-l-e (+ p 42) 4))
              (efnname (buffer-substring (+ p 46) (+ p 46 fnlen)))
 	     (isdir   (and (= ucsize 0)
@@ -1373,7 +1374,7 @@
 			    (vector efnname ifnname fiddle mode
 				    (list (1- p) lheader)))
                           files)
-              p (+ p 46 fnlen exlen))))
+              p (+ p 46 fnlen exlen fclen))))
     (goto-char (point-min))
     (let ((dash (concat "- ----------  --------  -----------  --------  "
 			(make-string maxlen ?-)