>>471
keyboard-coding-system が UTF-8 ならば、subst-win.el をロードしてみたらどう?

ダメなら、入力した「〜」にカーソル合わせて C-u C-x = した時の charset は
何になってる?