# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1028811840 0
# Node ID 32dd7c0ab00743c43a6619d40f731583d79bd2f1
# Parent  3b05c02eebf22d4507381fd4ea5c51e2e7774277
(tar-extract): Fix previous change.

diff -r 3b05c02eebf2 -r 32dd7c0ab007 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Thu Aug 08 13:01:56 2002 +0000
+++ b/lisp/tar-mode.el	Thu Aug 08 13:04:00 2002 +0000
@@ -696,7 +696,7 @@
 	      (setq coding (or coding-system-for-read
 			       (and set-auto-coding-function
 				    (funcall set-auto-coding-function
-					     name (point-max)))))
+					     name (- end start)))))
 	      (if (or (not coding)
 		      (eq (coding-system-type coding) 'undecided))
 		  (setq coding (detect-coding-region start end t)))