Emacsで全角カナ→半角カナ変換

M-x japanese-hankaku-regionなんて関数がありました。普段SKKを使っているのですが、SKKって半角カナが入力しにくいです…

(変換前)
コメント希望です。どしどしお願いします。 
(変換後)
コメント希望デス。ドシドシオ願イシマス。 

そういえばRubyで全角カナ→半角カナ変換ってどうやるのでしょう? nkfにもなさそうだし。自分で変換メソッド書かなきゃいけないのでしょうか? うーむ。