From b69ff51b95b2cdec27dbd286f7620ee62c73519a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Sep 2003 02:18:58 +0000 Subject: [PATCH] (decode-coding-inserted-region): Use car of the return value of find-operation-coding-system. --- lisp/ChangeLog | 5 +++++ lisp/international/mule.el | 6 +++--- 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 (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 -- 2.39.2