Mercurial > emacs

changeset 52660:99ed1d8cf6da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(decode-coding-inserted-region): Use car of the return value of find-operation-coding-system.
author Kenichi Handa <handa@m17n.org>
date Mon, 29 Sep 2003 02:18:39 +0000
parents acd80d413571
children 74dea65509d8
files lisp/international/mule.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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