Mercurial > emacs

diff lisp/arc-mode.el @ 70946:f3c65e2e68b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(archive-set-buffer-as-visiting-file): Call find-operation-coding-system with (FILENAME . BUFFER).
author Kenichi Handa <handa@m17n.org>
date Fri, 26 May 2006 04:47:36 +0000
parents ff708eaf43ab
children bf3518b64c99 a8190f7e546e
line wrap: on
line diff
--- 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