From: Kenichi Handa Date: Mon, 15 Jun 1998 01:23:35 +0000 (+0000) Subject: (tar-extract): Adjusted for the change of the spec X-Git-Tag: emacs-20.3~585 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32dcfa299b8740b03472aad7aff034f99c44d7fc;p=emacs.git (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 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)))