(decode-coding-inserted-region): Use car

of the return value of find-operation-coding-system.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6428e4f47fc..f21f88cab87 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-29  SAITO Takuya <tabmore@rivo.mediatti.net>  (tiny change)
+
+        * international/mule.el (decode-coding-inserted-region): Use car
+        of the return value of find-operation-coding-system.
+
 2003-09-29  Kenichi Handa  <handa@m17n.org>
 
         * descr-text.el (describe-char): Fix previous change.
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 12419ee4681..a82ead3999a 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1850,9 +1850,9 @@ of the function `insert-file-contents'."
             (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