From e0b582b8e1a36463483c76f85c43fd6bf2579885 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 May 2006 04:47:36 +0000
Subject: [PATCH] (archive-set-buffer-as-visiting-file): Call
 find-operation-coding-system with (FILENAME . BUFFER).

---
 lisp/arc-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 0b016b981e2..500ad5ff5fa 100644
--- 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
-- 
2.39.5