comparison lisp/international/mule.el @ 70947:48b2a1baa586

(decode-coding-inserted-region): Call find-operation-coding-system with (FILENAME . BUFFER).
author Kenichi Handa <handa@m17n.org>
date Fri, 26 May 2006 04:47:47 +0000
parents 238e43ed886e
children cb001b5b571b
comparison
equal deleted inserted replaced
70946:f3c65e2e68b3 70947:48b2a1baa586
1984 (setq coding (funcall set-auto-coding-function 1984 (setq coding (funcall set-auto-coding-function
1985 filename (- (point-max) (point-min))))) 1985 filename (- (point-max) (point-min)))))
1986 (or coding 1986 (or coding
1987 (setq coding (car (find-operation-coding-system 1987 (setq coding (car (find-operation-coding-system
1988 'insert-file-contents 1988 'insert-file-contents
1989 filename visit beg end replace)))) 1989 (cons filename (current-buffer))
1990 visit beg end replace))))
1990 (if (coding-system-p coding) 1991 (if (coding-system-p coding)
1991 (or enable-multibyte-characters 1992 (or enable-multibyte-characters
1992 (setq coding 1993 (setq coding
1993 (coding-system-change-text-conversion coding 'raw-text))) 1994 (coding-system-change-text-conversion coding 'raw-text)))
1994 (setq coding nil)) 1995 (setq coding nil))