Commit e0b582b8 authored by Kenichi Handa's avatar Kenichi Handa

(archive-set-buffer-as-visiting-file): Call

find-operation-coding-system with (FILENAME . BUFFER).
parent b87f5fcc
......@@ -876,8 +876,9 @@ using `make-temp-file', and the generated name is returned."
;; extracted file existed.
(let ((file-name-handler-alist
'(("" . archive-file-name-handler))))
(car (find-operation-coding-system 'insert-file-contents
filename t))))))
(car (find-operation-coding-system
'insert-file-contents
(cons filename (current-buffer)) t))))))
(if (and (not coding-system-for-read)
(not enable-multibyte-characters))
(setq coding
......
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