From: Kenichi Handa <handa@m17n.org>
Date: Fri, 26 May 2006 04:47:36 +0000 (+0000)
Subject: (archive-set-buffer-as-visiting-file): Call
X-Git-Tag: emacs-pretest-22.0.90~2308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0b582b8e1a36463483c76f85c43fd6bf2579885;p=emacs.git

(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 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