Give set-auto-coding-funciton FILENAME argument.

1998-07-25 02:02:59 +00:00
parent 823a266d9a
commit 47e1dcfee1
1 changed files with 2 additions and 1 deletions
--- 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)))