Kouhei Sutou
kou****@cozmi*****
2004年 1月 29日 (木) 23:59:11 JST
須藤です． In <20040****@mbox0*****> "[Anthy-dev 469] Re: uimのキーバインド定義を簡単に" on Thu, 29 Jan 2004 17:51:41 +0900, YamaKen <yamak****@bp*****> wrote: > 確かにその方が便利ですね。というわけでそのように変更してみました。 ありがとうございます． > 私もついさっきhttp経由でDBを潰してしまった? ようなのでパッチを添 > 付します。 リポジトリにアクセスできないのでパッチのパッチになってしまう のですが，set!は使わない方がよいと思います． と思ったら意外といろんなところでset!は使われているんですね． # mapではなくてmapcarを使っていることにもびっくり． うーん，せっかくなので送っておきます． --- uim-trunk-394-accept-multiple-keys-on-make-key-predicate-20040129.diff.orig 2004-01-29 23:46:07.000000000 +0900 +++ uim-trunk-394-accept-multiple-keys-on-make-key-predicate-20040129.diff 2004-01-29 23:50:47.000000000 +0900 @@ -21,7 +21,7 @@ =================================================================== --- scm/key.scm (revision 394) +++ scm/key.scm (working copy) -@@ -107,16 +107,27 @@ +@@ -107,16 +107,28 @@ translated-key translated-state))))) @@ -42,9 +42,10 @@ +(define make-key-predicate + (lambda (key-strs) -+ (if (string? key-strs) -+ (set! key-strs (list key-strs))) -+ (let* ((predicates (mapcar make-single-key-predicate key-strs))) ++ (let ((predicates (mapcar make-single-key-predicate ++ (if (not (list? key-strs)) ++ (list key-strs) ++ key-strs)))) + (lambda (key key-state) + (apply proc-or + (mapcar (lambda (predicate) -- 須藤 功平 kou****@cozmi*****
