# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 901332179 0
# Node ID 382a342ff901ce7a5ff3a07636a2fa38db16212d
# Parent  7bff93a6b3e14f6e246ea8ec747483cfceb281c4
Give set-auto-coding-funciton FILENAME argument.

diff -r 7bff93a6b3e1 -r 382a342ff901 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sat Jul 25 00:19:51 1998 +0000
+++ b/lisp/tar-mode.el	Sat Jul 25 02:02:59 1998 +0000
@@ -749,7 +749,8 @@
 		(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)))