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

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df600d17960..e8d74851d04 100644
--- 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 dccbb6f82df..0f0c22cabe1 100644
--- 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))))