(tar-extract): Fix for the case that a file doesn't have end-of-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df600d17960599841eb8d254e8bd05f9155b8d2b..e8d74851d044c410f46f8918c4d3d13f354b1712 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-09  Kenichi Handa  <handa@m17n.org>
+
+       * tar-mode.el (tar-extract): Fix for the case that a file doesn't
+       have end-of-line.
+
 2004-02-09  Martin Stjernholm  <bug-cc-mode@gnu.org>
 
        * Makefile.in: Added extra dependencies in the recompile target

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index dccbb6f82dfa41187799e30e8c98fe3bdb105793..0f0c22cabe13d911b88d0edf6ade144a44e879b7 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -743,6 +743,7 @@ appear on disk when you save the tar-file's buffer."
                                 (min (+ (point-min) 16384) (point-max)) t)))
                  (if coding
                      (or (numberp (coding-system-eol-type coding))
+                         (vectorp (coding-system-eol-type detected))
                          (setq coding (coding-system-change-eol-conversion
                                        coding
                                        (coding-system-eol-type detected))))