From 9913653ae64fb7c178c5ab1ee477fb6b6a62399d Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 10 Nov 1997 12:37:34 +0000 Subject: [PATCH] (archive-zoo-summarize): Properly handle the case of a short file name with a non-empty directory part. --- lisp/arc-mode.el | 7 ++----- 1 file 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)) -- 2.39.2