Mercurial > emacs

changeset 20239:5bf13ca1dbac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-zoo-summarize): Properly handle the case of a short file name with a non-empty directory part.
author Andreas Schwab <schwab@suse.de>
date Mon, 10 Nov 1997 12:37:34 +0000
parents 72b506b0fbcc
children 963e9cda8f04
files lisp/arc-mode.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Sat Nov 08 04:02:33 1997 +0000
+++ b/lisp/arc-mode.el	Mon Nov 10 12:37:34 1997 +0000
@@ -1526,10 +1526,7 @@
 	     (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 @@
                               (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))