(tar-header-block-summarize): Ensure one space around user&group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fda8b90ab9aae0942deedd1eecd6b91d0987ada0..8985f40db8d7dc3457d81a598dbd434ebcedb1cd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * tar-mode.el (tar-header-block-summarize): Ensure one space around
+       user&group.
+
 2008-05-25  Ed Reingold  <reingold@emr.cs.iit.edu>
 
        * calendar/cal-hebrew.el (diary-hebrew-yahrzeit):

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 04ce5dc83a95eb3be4116c806797a0af6fd4a0fb..834d048fc4ffa14decf806173a0e3b61e62d7f34 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -349,7 +349,7 @@ MODE should be an integer which is a file mode value."
        ;; (ck (tar-header-checksum tar-hblock))
        (type (tar-header-link-type tar-hblock))
        (link-name (tar-header-link-name tar-hblock)))
-    (format "%c%c%s%8s/%-8s%7s%s %s%s"
+    (format "%c%c%s %7s/%-7s %7s%s %s%s"
            (if mod-p ?* ? )
            (cond ((or (eq type nil) (eq type 0)) ?-)
                  ((eq type 1) ?h)      ; link