Mercurial > emacs
comparison lisp/international/mule.el @ 52660:99ed1d8cf6da
(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)) |