Mercurial > emacs

changeset 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 1af74e601432
children 48b2a1baa586
files lisp/arc-mode.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
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