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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6428e4f47fccb96fa30f7874a4cff79160268f80..f21f88cab87a2473bebded7c0eb0f032c5a0c335 100644 (file)
--- 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 12419ee46813f793949d04b240dfbc024cf28ca2..a82ead3999a92489ef1b02d8e51ad75d48f3b066 100644 (file)
--- 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