From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 May 2006 04:47:25 +0000 (+0000)
Subject: (tar-extract): Call find-operation-coding-system
X-Git-Tag: emacs-pretest-22.0.90~2309
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b87f5fcce9c1ad51f188b5c2fe17be5979b5010e;p=emacs.git

(tar-extract): Call find-operation-coding-system
with (FILENAME . BUFFER).
---

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f24a91d4145..a02fd1b2ba9 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -736,7 +736,8 @@ appear on disk when you save the tar-file's buffer."
 				    (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)