Give set-auto-coding-funciton FILENAME argument.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index ad8bdea817b..3ca808a60c1 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -749,7 +749,8 @@ appear on disk when you save the tar-file's buffer."
                 (let ((coding
                        (and set-auto-coding-function
                             (save-excursion
-                              (funcall set-auto-coding-function (point-max)))))
+                              (funcall set-auto-coding-function
+                                       name (point-max)))))
                       (multibyte enable-multibyte-characters)
                       (detected (detect-coding-region
                                  1 (min 16384 (point-max)) t)))