From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 26 May 2008 17:41:30 +0000 (+0000)
Subject: (tar-header-block-summarize): Ensure one space around user&group.
X-Git-Tag: emacs-pretest-22.2.90~118
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32d956a88601d0130721a9f4acab4898a959240d;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fda8b90ab9a..8985f40db8d 100644
--- 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 04ce5dc83a9..834d048fc4f 100644
--- 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