Etsushi Kato
ekato****@ees*****
2005年 6月 5日 (日) 17:42:23 JST
On Sun, Jun 05, 2005 at 06:17:35AM +0900, YamaKen <yamak****@bp*****> wrote: > At Thu, 5 May 2005 23:22:08 +0900, > ekato****@ees***** wrote: > > uim-pref で skk-candidate-selection-style を設定するだけで、 > > skk-candidate-op-count と skk-nr-candidate-max も自動的に更新するよう > > にしたかったのですが、custom-hook の使いかたがまだわかっていないので、 > > できていません。custom-update-hooks を使えばいいのでしょうか?、ヤマケ > > ンさん? > > doc/CUSTOMの "Invoke an arbitrary procedure when a custom > variable has been set" を参考に、custom-set-value!を呼び出すよう > なhookを仕掛ければいけるんじゃないかと思います。 > > 説明不足な点があったらドキュメントを補完しますので、何か気付いた > ら教えてください。 ありがとうございます。skk-ddskk-like-heading-label-char-list と skk-uim-heading-label-char-list を skk.scm から skk-custom.scm に持っ てきて、あと以下の追加でできました。 (custom-add-hook 'skk-candidate-selection-style 'custom-set-hooks (lambda () (if (= skk-candidate-selection-style 'ddskk-like) (begin (custom-set-value! 'skk-candidate-op-count 4) (custom-set-value! 'skk-nr-candidate-max (length skk-ddskk-like-heading-label-char-list))) (begin (custom-set-value! 'skk-candidate-op-count 2) (custom-set-value! 'skk-nr-candidate-max (length skk-uim-heading-label-char-list)))))) -- Etsushi Kato ekato****@ees*****
