From 4633b0ef3ff7fc8ac013e4236edf782fb3cadfb4 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 3 Feb 2019 23:00:29 +0200 Subject: * lisp/tar-mode.el (tar-extract): Call tar--try-jka-compr (bug#34251) * lisp/tar-mode.el (tar--try-jka-compr): New function copied from archive-try-jka-compr. * lisp/arc-mode.el (archive-try-jka-compr): Set buffer-multibyte to t instead of let-binding coding-system-for-read to 'no-conversion. * test/data/decompress/tg.tar.gz: * test/data/decompress/zg.zip: New fixtures. * test/lisp/arc-mode-tests.el (arc-mode-test-zip-extract-gz): * test/lisp/tar-mode-tests.el (tar-mode-test-tar-extract-gz): New tests. * test/lisp/vc/diff-mode-tests.el (diff-mode-test-font-lock) (diff-mode-test-font-lock-syntax-one-line): Skip unless shell and diff executables are found. --- lisp/arc-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/arc-mode.el') diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 263f251fc00..2b5b6166ad5 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -967,9 +967,9 @@ using `make-temp-file', and the generated name is returned." ;; Don't re-compress this data just before decompressing it. (jka-compr-inhibit t)) (write-region (point-min) (point-max) tmpfile nil 'quiet)) + (set-buffer-multibyte t) (erase-buffer) - (let ((coding-system-for-read 'no-conversion)) - (insert-file-contents tmpfile))) + (insert-file-contents tmpfile)) (delete-file tmpfile))))) (defun archive-file-name-handler (op &rest args) -- cgit v1.2.1