Anthy/uim スレッド 4

svnのskk.scmでは正式にサポートされてるからanthy.scmもサポー
トしてほしいですね。

一応こんなかんじでできます。
(define anthy-proc-input-state-no-preedit-orig anthy-proc-input-state-no-preedit)
(define anthy-proc-input-state-no-preedit
  (lambda (ac key key-state)
    (if (or (= key 'escape)
            (and (= key 91)
                 (= key-state 2)))
        (begin
          (anthy-commit-raw ac)
          (anthy-flush ac)
          (anthy-context-set-on! ac #f)
          (anthy-context-set-wide-latin! ac #f)
          (anthy-update-mode ac)
          (anthy-update-prop-label ac)
          )
        (anthy-proc-input-state-no-preedit-orig ac key key-state))
    ))