mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
its version number, and then set both.
This commit is contained in:
Stefan Monnier 2009-01-16 02:38:58 +00:00
parent 38cb7a93b1
commit b6388cc99c
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

4
lisp/tar-mode.el
View File

@ -1053,8 +1053,8 @@ for this to be permanent."
(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))))