[xyzzy:04496] cvs-mode

[nobu.nokada@xxxxxxxxxxxx]

なかだです。

  なんとなく動くとこまでいったのでとりあえず公開してみます。ま
だごく基本的な機能だけ(commit, chekcout, diff, log)で、ドキュメ
ントも皆無ですが。

  添付しようかとも思ったんですが、ちょっと長めになったのでこち
らに置いときます。

http://member.nifty.ne.jp/nokada/archive/cvs-mode-0.1.tar.gz


  と、ついでに質問ですがm(__)m、CVS に登録されていれば自動で
cvs-mode に入るようにしようと

(defun cvs::open-file ()
  (and (cvs::get-entry) (cvs-mode t) nil))

(add-hook '*find-file-hooks* 'cvs::open-file)

という風にしてみたんですが、効果ありません。フックの使い方が間
違ってるんでしょうか。