# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1148618856 0
# Node ID f3c65e2e68b369ea68b5ad9e8225c3cd2f48722a
# Parent  1af74e601432dcaf9fc9c61a9c1f0c7d98f06531
(archive-set-buffer-as-visiting-file): Call
find-operation-coding-system with (FILENAME . BUFFER).

diff -r 1af74e601432 -r f3c65e2e68b3 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Fri May 26 04:47:25 2006 +0000
+++ b/lisp/arc-mode.el	Fri May 26 04:47:36 2006 +0000
@@ -876,8 +876,9 @@
 	       ;; 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