(decode-coding-inserted-region): Call

find-operation-coding-system with (FILENAME . BUFFER).

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 72198bb..b66345e 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1986,7 +1986,8 @@ Part of the job of this function is setting `buffer-undo-list' appropriately."
        (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