changeset 22810:382a342ff901

Give set-auto-coding-funciton FILENAME argument.
author Kenichi Handa <handa@m17n.org>
date Sat, 25 Jul 1998 02:02:59 +0000
parents 7bff93a6b3e1
children 6e11bb792d4f
files lisp/tar-mode.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))