> > (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時33分43秒