(tar-extract): Adjusted for the change of the spec

of set-auto-coding-function.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 7e5794410be438c45d313275f3436170f855e017..ad8bdea817b2f3f74dadcaba09ed222f7ec2ee86 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -748,14 +748,8 @@ appear on disk when you save the tar-file's buffer."
                ;; which determine the coding-system and decode the text.
                (let ((coding
                       (and set-auto-coding-function
-                           (funcall
-                            set-auto-coding-function
-                            (if (< (point-max) 4096)
-                                (buffer-substring-no-properties 1 (point-max))
-                              (concat
-                               (buffer-substring-no-properties 1  1025)
-                               (buffer-substring-no-properties
-                                (- (point-max) 3072) (point-max)))))))
+                           (save-excursion
+                             (funcall set-auto-coding-function (point-max)))))
                      (multibyte enable-multibyte-characters)
                      (detected (detect-coding-region
                                 1 (min 16384 (point-max)) t)))