[Emacs-diffs] emacs/lisp ChangeLog tar-mode.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/01/16 02:39:02

Modified files:
        lisp           : ChangeLog tar-mode.el 

Log message:
        (tar-rename-entry): Only test the magic string, without
        its version number, and then set both.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15114&r2=1.15115
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tar-mode.el?cvsroot=emacs&r1=1.136&r2=1.137

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15114
retrieving revision 1.15115
diff -u -b -r1.15114 -r1.15115
--- ChangeLog   16 Jan 2009 00:43:40 -0000      1.15114
+++ ChangeLog   16 Jan 2009 02:38:58 -0000      1.15115
@@ -1,3 +1,8 @@
+2009-01-16  Kevin Ryde  <address@hidden>
+
+       * 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  <address@hidden>
 
        * textmodes/paragraphs.el (sentence-end): Accept non-break space.

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.136
retrieving revision 1.137
diff -u -b -r1.136 -r1.137
--- tar-mode.el 12 Jan 2009 03:37:15 -0000      1.136
+++ tar-mode.el 16 Jan 2009 02:39:02 -0000      1.137
@@ -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))))