From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 18 Jun 1995 16:24:51 +0000 (+0000)
Subject: (archive-zip-summarize): Handle per-file comments in central directory.
X-Git-Tag: emacs-19.34~3555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=845720b9f9eb8d29f5b94617c938417e1baf5a3d;p=emacs.git

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

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4f416995d59..8cc798e41a6 100644
--- 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 ?-)