(archive-zip-summarize): Handle per-file comments in central directory.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4f416995d59321c100fcbdc682a8e514ec0de7fa..8cc798e41a6935df89afa1d432592e5e69da3931 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1339,6 +1339,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
              (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 @@ This doesn't recover lost files, it just undoes changes in the buffer itself."
                            (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 ?-)