Commit c533a7e2 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(tar-extract): Pay attention to the value of

coding-system-for-read, if it is non-nil.
parent f3d6f4ee
2001-05-09 Eli Zaretskii <eliz@is.elta.co.il> 2001-05-09 Eli Zaretskii <eliz@is.elta.co.il>
   
* tar-mode.el (tar-extract): Pay attention to the value of
coding-system-for-read, if it is non-nil.
* calendar/holidays.el (holidays): Add an autoload cookie. From * calendar/holidays.el (holidays): Add an autoload cookie. From
Pavel Jan,Bm(Bk <Pavel@Janik.cz>. Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
   
......
...@@ -716,10 +716,11 @@ appear on disk when you save the tar-file's buffer." ...@@ -716,10 +716,11 @@ appear on disk when you save the tar-file's buffer."
;; We need to mimic the parts of insert-file-contents ;; We need to mimic the parts of insert-file-contents
;; which determine the coding-system and decode the text. ;; which determine the coding-system and decode the text.
(let ((coding (let ((coding
(and set-auto-coding-function (or coding-system-for-read
(save-excursion (and set-auto-coding-function
(funcall set-auto-coding-function (save-excursion
name (- (point-max) (point)))))) (funcall set-auto-coding-function
name (- (point-max) (point)))))))
(multibyte enable-multibyte-characters) (multibyte enable-multibyte-characters)
(detected (detect-coding-region (detected (detect-coding-region
1 (min 16384 (point-max)) t))) 1 (min 16384 (point-max)) t)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment