>>352
おれはこれで使ってる。

--- lisp/international/mule.el 18 May 2003 21:07:01 -0000 1.185
+++ lisp/international/mule.el 26 May 2003 07:04:12 -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