# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1148618845 0
# Node ID 1af74e601432dcaf9fc9c61a9c1f0c7d98f06531
# Parent  2e73c646b9df0be87fb2a993960544f8aef893c4
(tar-extract): Call find-operation-coding-system
with (FILENAME . BUFFER).

diff -r 2e73c646b9df -r 1af74e601432 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Fri May 26 04:47:16 2006 +0000
+++ b/lisp/tar-mode.el	Fri May 26 04:47:25 2006 +0000
@@ -736,7 +736,8 @@
 				    (funcall set-auto-coding-function
 					     name (- (point-max) (point)))))
 			     (car (find-operation-coding-system
-				   'insert-file-contents name t))))
+				   'insert-file-contents
+				   (cons name (current-buffer)) t))))
 			(multibyte enable-multibyte-characters)
 			(detected (detect-coding-region
 				   (point-min)