From: Kenichi Handa Date: Mon, 29 Sep 2003 02:18:58 +0000 (+0000) Subject: (decode-coding-inserted-region): Use car X-Git-Tag: ttn-vms-21-2-B4~8707 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b69ff51b95b2cdec27dbd286f7620ee62c73519a;p=emacs.git (decode-coding-inserted-region): Use car of the return value of find-operation-coding-system. --- 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 (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 * 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