[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100061: tar-mode.el (tar-header-block-tokenize): Decode filenames in "ustar" format.

[Kenichi Handa]

------------------------------------------------------------
revno: 100061 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-09-27 14:01:48 +0900
message:
  tar-mode.el (tar-header-block-tokenize): Decode filenames in "ustar" format.
modified:
  lisp/ChangeLog
  lisp/tar-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-27 04:52:56 +0000
+++ b/lisp/ChangeLog    2010-09-27 05:00:46 +0000
@@ -1,5 +1,10 @@
 2010-09-27  Kenichi Handa  <address@hidden>
 
+       * tar-mode.el (tar-header-block-tokenize): Decode filenames in
+       "ustar" format.
+
+2010-09-27  Kenichi Handa  <address@hidden>
+
        * international/mule.el (define-coding-system): Docstring fixed.
 
        * international/mule-diag.el (describe-character-set): Use princ

=== modified file 'lisp/tar-mode.el'
--- a/lisp/tar-mode.el  2010-01-13 08:35:10 +0000
+++ b/lisp/tar-mode.el  2010-09-27 05:00:46 +0000
@@ -286,7 +286,8 @@
             (let* ((size (tar-parse-octal-integer
                           string tar-size-offset tar-time-offset))
                    ;; -1 so as to strip the terminating 0 byte.
-                   (name (buffer-substring pos (+ pos size -1)))
+                  (name (decode-coding-string 
+                         (buffer-substring pos (+ pos size -1)) coding))
                    (descriptor (tar-header-block-tokenize
                                 (+ pos (tar-roundup-512 size))
                                coding)))