SJISでセーブする

2chで質問があったので途中まで作ってみる。

(defun save-file-sjis () 
   (interactive) 
   (set-buffer-fileio-encoding *encoding-sjis*) 
   (if (file-visited-p) 
     (save-buffer) 
     (call-interactively 'emacs-write-file) 
   ) 
) 

minibufferからの読み込みが分からなかったので聞いて書きました。
read-file-name でもできるけどcall-interactivelyの方が短いから
これでよいかな・・・
まぁエンコード変えてセーブすればいいはずなんですが
エンコード変えるショートカットをすぐ忘れるし
右クリックメニューにSJISとEUC作っとくと便利かな
最近eucファイルばかり触ってるし・・・