Etsushi Kato
ekato****@ees*****
2005年 2月 11日 (金) 11:45:39 JST
加藤です。 On Fri, Feb 11, 2005 at 01:22:30AM +0900, Konosuke Watanabe <nosuk****@csc*****> wrote: > uimでAnthyを使っていて，ファンクションキーを使った直接変換で > バグらしきものを発見したので報告します． こちらでも再現しました。anthy.scm はさわったことが無くて理解していない のですが、とりあえず以下のパッチでどうですか？ どういった挙動が本来意 図されているのかちょっとまだ理解していないのですけど。 > ＃primeでも試そうと思ったんですが，いつの間にか選べなくなっ > ＃てました・・・あれれ？ ちょっと前の uim から pkg-config で prime の存在を configure で確認 するようにしたみたいなのですが、prime.pc がおかしい場合認識してくれま せん。 $ pkg-config --modversion prime で version が正しく表示されるようになれば大丈夫です。 こちらでも prime-0.8.6 を使っていたのですが、exec_prefix が無いと言わ れ動いてくれませんでしたので、prime.pc に手で加えました。 -- Etsushi Kato ekato****@ees***** -------------- next part -------------- Index: anthy.scm =================================================================== --- anthy.scm (revision 621) +++ anthy.scm (working copy) @@ -324,12 +324,15 @@ (ja-raw-string-list-to-valid-roma (append left-str (if (null? residual-kana) - right-str + (begin + (if (null? right-str) + (list pending) + (append right-str (list pending)))) (begin (rk-flush rkc) (if (null? right-str) (list pending) - (append (list pending) right-str)))))) + (append right-str (list pending))))))) wide?)))) (define anthy-init-handler Index: japanese.scm =================================================================== --- japanese.scm (revision 621) +++ japanese.scm (working copy) @@ -678,8 +678,9 @@ (string=? "n" next-head)) "nn" head-str))) - (if (null? next-str) - ja-default-small-tsu-roma + (if (or (null? next-str) (string=? next-str "")) + ;ja-default-small-tsu-roma + head-str (if (ja-vowel? next-str) ja-default-small-tsu-roma (car (reverse (string-to-list next-str)))))) @@ -717,9 +718,9 @@ ;; (define ja-raw-string-list-to-valid-roma (lambda (raw-str-list) - (let* ((head-str (car raw-str-list)) + (let ((head-str (car raw-str-list)) (next-str (cadr raw-str-list))) - (if (null? next-str) + (if (or (null? next-str) (string=? next-str "")) (list (ja-raw-string-to-valid-roma head-str next-str)) (cons (ja-raw-string-to-valid-roma head-str next-str) (ja-raw-string-list-to-valid-roma (cdr raw-str-list)))))))
