From 32dcfa299b8740b03472aad7aff034f99c44d7fc Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 15 Jun 1998 01:23:35 +0000 Subject: [PATCH] (tar-extract): Adjusted for the change of the spec of set-auto-coding-function. --- lisp/tar-mode.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 7e5794410be..ad8bdea817b 100644 --- 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))) -- 2.39.5