(tar-extract): Fix previous change.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index bd10737b5481779a3564a7b21ed31817537b3059..4adad6fe3748f7864a4e70281b1a9227f4a20484 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -696,7 +696,7 @@ appear on disk when you save the tar-file's buffer."
              (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)))