# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1232073538 0
# Node ID be5a7a68d09d53f418861cb39d9ccaba83b1cb63
# Parent  fef91f9718dc41190cb6a1262bb4e64e16c0c602
(tar-rename-entry): Only test the magic string, without
its version number, and then set both.

diff -r fef91f9718dc -r be5a7a68d09d lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 16 00:43:40 2009 +0000
+++ b/lisp/ChangeLog	Fri Jan 16 02:38:58 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-16  Kevin Ryde  <user42@zip.com.au>
+
+	* tar-mode.el (tar-rename-entry): Only test the magic string, without
+	its version number, and then set both.
+
 2009-01-16  Richard M Stallman  <rms@gnu.org>
 
 	* textmodes/paragraphs.el (sentence-end): Accept non-break space.
diff -r fef91f9718dc -r be5a7a68d09d lisp/tar-mode.el
--- a/lisp/tar-mode.el	Fri Jan 16 00:43:40 2009 +0000
+++ b/lisp/tar-mode.el	Fri Jan 16 02:38:58 2009 +0000
@@ -1053,8 +1053,8 @@
                (string-match "/" encoded-new-name
 			     (- (length encoded-new-name) 99))
 	       (< (match-beginning 0) 155))
-      (unless (equal (tar-header-magic descriptor) "ustar\0\0")
-        (tar-alter-one-field tar-magic-offset "ustar\0\0"))
+      (unless (equal (tar-header-magic descriptor) "ustar\0")
+        (tar-alter-one-field tar-magic-offset (concat "ustar\0" "00")))
       (setq prefix (substring encoded-new-name 0 (match-beginning 0)))
       (setq encoded-new-name (substring encoded-new-name (match-end 0))))