(tar-extract): Pay attention to the value of

coding-system-for-read, if it is non-nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6d55e8c7730da5ee50d97c89a003b795e1a2b706..21dd7b58abc8b2dfb17d75f632af6cf3b7d40c66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-05-09  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * tar-mode.el (tar-extract): Pay attention to the value of
+       coding-system-for-read, if it is non-nil.
+
        * calendar/holidays.el (holidays): Add an autoload cookie.  From
        Pavel Jan\e,Bm\e(Bk <Pavel@Janik.cz>.
 

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 264bc37f2e62d37509823bf4f97519cd45921cff..fac148b2b63e736cae9d02e06391e76d8b9337f4 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -716,10 +716,11 @@ appear on disk when you save the tar-file's buffer."
                ;; We need to mimic the parts of insert-file-contents
                ;; which determine the coding-system and decode the text.
                (let ((coding
-                      (and set-auto-coding-function
-                           (save-excursion
-                             (funcall set-auto-coding-function
-                                      name (- (point-max) (point))))))
+                      (or coding-system-for-read
+                          (and set-auto-coding-function
+                               (save-excursion
+                                 (funcall set-auto-coding-function
+                                          name (- (point-max) (point)))))))
                      (multibyte enable-multibyte-characters)
                      (detected (detect-coding-region
                                 1 (min 16384 (point-max)) t)))