# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 989422493 0
# Node ID cf324803e6ca84225c6db0f95ebb618aaad0f546
# Parent  fa0afa395c91111718f36633e297d4e1e427ada5
(tar-extract): Pay attention to the value of
coding-system-for-read, if it is non-nil.

diff -r fa0afa395c91 -r cf324803e6ca lisp/tar-mode.el
--- a/lisp/tar-mode.el	Wed May 09 15:21:44 2001 +0000
+++ b/lisp/tar-mode.el	Wed May 09 15:34:53 2001 +0000
@@ -716,10 +716,11 @@
 		;; 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)))