日本語入力時にkey-chord.elが動作しないようにするadvice

日本語入力時もkey-chorde.elが動いちゃう問題は、egbridge使ってる人限定かもしれないです。
以下のコードはcarbon-emacs用です。 他のemacsの場合は、mac-get-current-key-script の部分を変えてください。

(when (and (featurep 'carbon-emacs-package)
                  (fboundp 'mac-get-current-key-script))
         (defadvice key-chord-input-method (around check-whether-input-type-is-japanese activate)
           (if (= (mac-get-current-key-script) 0) ;input method is not japanese
               ad-do-it
             (setq ad-return-value (list (ad-get-arg 0))))))

僕は、 jk を同時に押すと dabbrev-expand(M-/) を起動するようにしているのですが、インプットメソッドが日本語の状態で

jkって凄く良いよね

とか入力しようとするとdabbrevが起動してしまいイラっとする事が多々有りました。