Fix copying binary files from zip archives

* lisp/arc-mode.el (archive-copy-file): Prevent any coding
conversions when writing output files.  (Bug#62091)
This commit is contained in:
Eli Zaretskii 2023-03-11 11:54:31 +02:00
parent 679f528b95
commit 4803f97204

View file

@ -1093,7 +1093,9 @@ NEW-NAME."
(with-temp-buffer
(set-buffer-multibyte nil)
(archive--extract-file extractor copy ename)
(write-region (point-min) (point-max) write-to))
(let ((coding-system-for-write
(or coding-system-for-write 'no-conversion)))
(write-region (point-min) (point-max) write-to)))
(unless (equal copy archive)
(delete-file copy))))))))