[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
[MD:691] Re: [MD:682]about IMM API
- X-ml-count: 691
- Subject: [MD:691] Re: [MD:682]about IMM API
- From: Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: 08 Apr 1998 14:27:57 +0900
- X-mailer: Semi-gnus 6.0.4 (based on Quassia Gnus v0.23)
NIIBE Yutaka <gniibe@xxxxxxxxx> writes:
> 大場さん writes:
> > 過去の himi さんの mail と doc-string をまとめてみましたので、取り合え
> > ず添付します。
>
> とても, ありがたい。大変ありがとうございます。
ついでに、わたしのサンプルプログラムを添付しましょう。
変換するためのプログラムです。
## 変換している例文はこの際気にしないように。^^
from himi
(setq foo1 (w32-ime-create-conversion-agent))
(let (result candidate)
(w32-ime-set-composition-string
foo1
'(("あなたの" . target-converted)
("ことを" . converted)
("あいして" . converted)
("います" . converted))
'string
t)
(w32-ime-deal-with-context foo1 'convert)
(setq result (w32-ime-get-composition-string foo1 'comp))
(condition-case nil
(w32-ime-open-candidate foo1 0)
(error))
(condition-case nil
(w32-ime-open-candidate foo1 1)
(error))
(setq candidate (w32-ime-get-candidate-list foo1 0))
(list result candidate))