> > ざっとみてみたが、FileIOの時点でエンコードしているらしいな…
> (defun reload-file-with-encoding (encoding)
>   (interactive "ZEncoding: ")
>   (let ((filename (get-buffer-file-name)))
>     (if filename
>         (read-file filename encoding)
>       (plain-error "開くファイルが無いよ"))))
> (global-set-key '(#\C-c #\C-e) 'reload-file-with-encoding)
> .xyzzyに書いた
> C-c C-eでencoding聞かれるから指定すればそのencodingでreloadされる
> lispなんてさっぱり分からんからとりあえず動いたというレベルだがまあいいや

LISP(;´Д`)KISYOOOOOOOOOO!!!""#!""!"!

参考：2002/03/18(月)03時32分42秒