diff options
| author | Andreas Schwab <schwab@suse.de> | 1997-11-10 12:37:34 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 1997-11-10 12:37:34 +0000 |
| commit | 9913653ae64fb7c178c5ab1ee477fb6b6a62399d (patch) | |
| tree | fe7ab308b0ec214fedc341676c99f9c8811a8f67 /lisp/arc-mode.el | |
| parent | af559a4e281a37d2accf2be5e1dce8e3e8db214f (diff) | |
| download | emacs-9913653ae64fb7c178c5ab1ee477fb6b6a62399d.tar.gz | |
(archive-zoo-summarize): Properly handle the case of
a short file name with a non-empty directory part.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 767093ef51d..0936e1f40db 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1526,10 +1526,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." (dirtype (char-after (+ p 4))) (lfnlen (if (= dirtype 2) (char-after (+ p 56)) 0)) (ldirlen (if (= dirtype 2) (char-after (+ p 57)) 0)) - (fnlen (+ ldirlen - (if (> lfnlen 0) - (1- lfnlen) - (or (string-match "\0" namefld) 13)))) + (fnlen (or (string-match "\0" namefld) 13)) (efnname (concat (if (> ldirlen 0) (concat (buffer-substring @@ -1546,7 +1543,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." (archive-dosdate moddate) (archive-dostime modtime) ifnname))) - (setq maxlen (max maxlen fnlen) + (setq maxlen (max maxlen (length ifnname)) totalsize (+ totalsize ucsize) visual (cons (vector text (- (length text) (length ifnname)) |