martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
of set-auto-coding-function.
This commit is contained in:
Kenichi Handa
1998-06-15 01:23:35 +00:00
parent 81a7030d5f
commit 32dcfa299b
1 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/tar-mode.el
View File

@@ -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)))