diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-06-15 01:23:35 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-06-15 01:23:35 +0000 |
| commit | 32dcfa299b8740b03472aad7aff034f99c44d7fc (patch) | |
| tree | 052f780c07ee1830c135e234ec1182a485d489fb /lisp/tar-mode.el | |
| parent | 81a7030d5f336eee18acad0dc27b338c2a5f221a (diff) | |
| download | emacs-32dcfa299b8740b03472aad7aff034f99c44d7fc.tar.gz | |
(tar-extract): Adjusted for the change of the spec
of set-auto-coding-function.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 10 |
1 files 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))) |