From 845720b9f9eb8d29f5b94617c938417e1baf5a3d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 18 Jun 1995 16:24:51 +0000 Subject: [PATCH] (archive-zip-summarize): Handle per-file comments in central directory. --- lisp/arc-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 ?-) -- 2.39.2