# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1064801919 0
# Node ID 99ed1d8cf6dadd62a4dc12daaf0f260731ec8973
# Parent  acd80d4135719ed7af19e9ceb2004e49232e08d2
(decode-coding-inserted-region): Use car
of the return value of find-operation-coding-system.

diff -r acd80d413571 -r 99ed1d8cf6da lisp/international/mule.el
--- a/lisp/international/mule.el	Sun Sep 28 23:53:42 2003 +0000
+++ b/lisp/international/mule.el	Mon Sep 29 02:18:39 2003 +0000
@@ -1850,9 +1850,9 @@
 	    (setq coding (funcall set-auto-coding-function
 				  filename (- (point-max) (point-min)))))
 	(or coding
-	    (setq coding (find-operation-coding-system
-			  'insert-file-contents
-			  filename visit beg end replace)))
+	    (setq coding (car (find-operation-coding-system
+			       'insert-file-contents
+			       filename visit beg end replace))))
 	(if (coding-system-p coding)
 	    (or enable-multibyte-characters
 		(setq coding