Mercurial > emacs
changeset 22494:486cf5c4541d
(tar-extract): Adjusted for the change of the spec
of set-auto-coding-function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 15 Jun 1998 01:23:35 +0000 |
| parents | 7bf1faa656c9 |
| children | eb628ee6aa2b |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Mon Jun 15 01:20:26 1998 +0000 +++ b/lisp/tar-mode.el Mon Jun 15 01:23:35 1998 +0000 @@ -748,14 +748,8 @@ ;; 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)))