> > 既に開いているファイルを別のencodingで読み込み直したい
> > reload-fileとかそういうのは無いのか
> ざっとみてみたが、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なんてさっぱり分からんからとりあえず動いたというレベルだがまあいいや

参考：2002/03/18(月)02時15分48秒