Commit b6388cc9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(tar-rename-entry): Only test the magic string, without

its version number, and then set both.
parent 38cb7a93
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> 2009-01-16 Richard M Stallman <rms@gnu.org>
   
* textmodes/paragraphs.el (sentence-end): Accept non-break space. * textmodes/paragraphs.el (sentence-end): Accept non-break space.
......
...@@ -1053,8 +1053,8 @@ for this to be permanent." ...@@ -1053,8 +1053,8 @@ for this to be permanent."
(string-match "/" encoded-new-name (string-match "/" encoded-new-name
(- (length encoded-new-name) 99)) (- (length encoded-new-name) 99))
(< (match-beginning 0) 155)) (< (match-beginning 0) 155))
(unless (equal (tar-header-magic descriptor) "ustar\0\0") (unless (equal (tar-header-magic descriptor) "ustar\0")
(tar-alter-one-field tar-magic-offset "ustar\0\0")) (tar-alter-one-field tar-magic-offset (concat "ustar\0" "00")))
(setq prefix (substring encoded-new-name 0 (match-beginning 0))) (setq prefix (substring encoded-new-name 0 (match-beginning 0)))
(setq encoded-new-name (substring encoded-new-name (match-end 0)))) (setq encoded-new-name (substring encoded-new-name (match-end 0))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment