summaryrefslogtreecommitdiff
path: root/lisp/arc-mode.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@linkov.net>2019-02-03 23:00:29 +0200
committerJuri Linkov <juri@linkov.net>2019-02-03 23:00:29 +0200
commit4633b0ef3ff7fc8ac013e4236edf782fb3cadfb4 (patch)
tree86b978e4f2cd9f5fc9c6620a24b015856b004b0d /lisp/arc-mode.el
parentb32ac17c32486d8fce0fb9ecd5e09fe324448d3d (diff)
downloademacs-4633b0ef3ff7fc8ac013e4236edf782fb3cadfb4.tar.gz
* 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.
Diffstat (limited to 'lisp/arc-mode.el')
-rw-r--r--lisp/arc-mode.el4
1 files changed, 2 insertions, 2 deletions
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)