diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-18 16:24:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-18 16:24:51 +0000 |
| commit | 845720b9f9eb8d29f5b94617c938417e1baf5a3d (patch) | |
| tree | 03ff692b5372c4187d7b24764285168cde615357 /lisp/arc-mode.el | |
| parent | ff6481825c22cc292d3d697e6efb12cce08dee44 (diff) | |
| download | emacs-845720b9f9eb8d29f5b94617c938417e1baf5a3d.tar.gz | |
(archive-zip-summarize): Handle per-file comments in central directory.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 ?-) |