# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1211823690 0
# Node ID 8436412d2e08d4b2ae6c4e74452929b166593005
# Parent  ffc29d3b77cba7639c448e0ab5d96dd5b040fbad
(tar-header-block-summarize): Ensure one space around user&group.

diff -r ffc29d3b77cb -r 8436412d2e08 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon May 26 07:03:02 2008 +0000
+++ b/lisp/ChangeLog	Mon May 26 17:41:30 2008 +0000
@@ -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 -r ffc29d3b77cb -r 8436412d2e08 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Mon May 26 07:03:02 2008 +0000
+++ b/lisp/tar-mode.el	Mon May 26 17:41:30 2008 +0000
@@ -349,7 +349,7 @@
 	;; (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