"\C-M"は"\C-m"と同じだからだめ。
ベクトルを使う必要がある。
[(control ?M)]
を定義してから
[(control ?m)]
を定義するとどう？