[lisp] emacs で SJIS DOS しばり

Windows で emacs を使っていて、
SJIS 以外使わないし、
改行コードも CRLF で良いから、
固定になりませんかね、という相談を受けた。
そうねー。
ウチの部署で emacs-lisp 書く人なんて
私だけだろうなー(^^;;

というわけで、やる気が出たので調べてみた。
かなり簡単。
以下を .emacs に書いておけばＯＫ。
強力すぎてテストが大変だった(笑)

(defadvice find-file (around coding-system activate compile)
　　　　　"どんなファイルも SJIS DOS として読み込み"
　　　　　(let ((coding-system-for-read 'sjis-dos))
　　　　　 　ad-do-it))
(ad-activate 'find-file)

(defadvice save-buffer (around coding-system activate compile)
　　　　　"どんなファイルも SJIS DOS で保存"
　　　　　(let ((coding-system-for-write 'sjis-dos))
　　　　　 　ad-do-it))
(ad-activate 'save-buffer)

参考：
Emacsユーザのためのadvice - Journal InTime(2009-12-24)

こんな関数があるんだねー。
初めて使った。

文字コード関連はこうしたいって要望が一番出るあたりだよね。
関連：
女プログラマってどうよ？ : Emacs文字コード自動認識が失敗