Mercurial > emacs

comparison lisp/international/mule.el @ 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 695cf19ef79e
children 2e3d2f94a2ba
comparison
equal deleted inserted replaced
52659:acd80d413571 52660:99ed1d8cf6da
1848 (let ((coding coding-system-for-read)) 1848 (let ((coding coding-system-for-read))
1849 (or coding 1849 (or coding
1850 (setq coding (funcall set-auto-coding-function 1850 (setq coding (funcall set-auto-coding-function
1851 filename (- (point-max) (point-min))))) 1851 filename (- (point-max) (point-min)))))
1852 (or coding 1852 (or coding
1853 (setq coding (find-operation-coding-system 1853 (setq coding (car (find-operation-coding-system
1854 'insert-file-contents 1854 'insert-file-contents
1855 filename visit beg end replace))) 1855 filename visit beg end replace))))
1856 (if (coding-system-p coding) 1856 (if (coding-system-p coding)
1857 (or enable-multibyte-characters 1857 (or enable-multibyte-characters
1858 (setq coding 1858 (setq coding
1859 (coding-system-change-text-conversion coding 'raw-text))) 1859 (coding-system-change-text-conversion coding 'raw-text)))
1860 (setq coding nil)) 1860 (setq coding nil))