(tar-extract): Call find-operation-coding-system

with (FILENAME . BUFFER).

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f24a91d4145852b870bb4ee3da609786cd473678..a02fd1b2ba948bdae45fca97972f7fe5d9cef4f8 100644 (file)
--- 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)