changeset 70947:48b2a1baa586

(decode-coding-inserted-region): Call find-operation-coding-system with (FILENAME . BUFFER).
author Kenichi Handa <handa@m17n.org>
date Fri, 26 May 2006 04:47:47 +0000
parents f3c65e2e68b3
children 7ea8b1c11d80
files lisp/international/mule.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule.el	Fri May 26 04:47:36 2006 +0000
+++ b/lisp/international/mule.el	Fri May 26 04:47:47 2006 +0000
@@ -1986,7 +1986,8 @@
 	(or coding
 	    (setq coding (car (find-operation-coding-system
 			       'insert-file-contents
-			       filename visit beg end replace))))
+			       (cons filename (current-buffer))
+			       visit beg end replace))))
 	(if (coding-system-p coding)
 	    (or enable-multibyte-characters
 		(setq coding