Mercurial > emacs
changeset 101220:be5a7a68d09d
(tar-rename-entry): Only test the magic string, without
its version number, and then set both.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 16 Jan 2009 02:38:58 +0000 |
| parents | fef91f9718dc |
| children | c4fc631d1423 |
| files | lisp/ChangeLog lisp/tar-mode.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))))