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

find-operation-coding-system with (FILENAME . BUFFER).

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 0b016b981e2b2877d8b39879c3294c0e11c9ce3f..500ad5ff5fa864318ae4c85d370947160f9952e6 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -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