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

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

(tar-extract): Pay attention to the value of
coding-system-for-read, if it is non-nil.
c533a7e2 · Eli Zaretskii · f3d6f4ee · c533a7e2 · c533a7e2
Commit c533a7e2 authored May 09, 2001 by Eli Zaretskii
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/tar-mode.el lisp/tar-mode.el +5 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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,Bm(Bk <Pavel@Janik.cz>.
  

--- 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)))