レス数が1000を超えています。残念ながら全部は表示しません。

SKK専用スレッド

909 ：890 ：02/02/03 22:21

defadvice はまだ定義されてない関数にもできるようですよ.

僕のはもう適当に作ったので, どんどん簡潔になりました.
結局最終的にこれだけ.
skk 本体とマージするとか, code の再利用性など全然考えてません(笑)

(defvar my-skk-comp-point nil)

(defadvice skk-comp-do (before my-skk-comp-remove-comp)
(when first
(setq my-skk-comp-point (point))))
(ad-activate 'skk-comp-do)

(defadvice skk-insert (before my-skk-comp-remove-comp)
(when (and (eq skk-henkan-mode 'on)
(eq last-command 'skk-comp-do)
(not (eq last-command-char skk-start-henkan-char))
(not (eq my-skk-comp-point nil)))
(delete-region my-skk-comp-point (point))
(setq my-skk-comp-point nil)))
(ad-activate 'skk-insert)

912 ：890 ：02/02/04 01:48

うーん,

>>skk 本体とマージするとか, code の再利用性など全然考えてません(笑)
>私が実際やっているのもまさに同じ程度のことなのですが、この場でそういう
>発言をされてしまうと後の展開がつらい。
>本件については私はとりあえずこれにて done とします。

いやこれは作って下さるといっていたのに僕が気付かなくて
先に同じようなコードを出してしまったことの謝罪も込めた,
謙遜というか, ジョークだったんですが.
同じようなものがあったら出しにくいだろうと思って.

マージすることを考えてないというのは
ちょっと問題発言だったと思うので反省します.
そういう意図で書いたのではなかったのですが.


ところで,
> んなわけないと思いますけれど。my-skk-comp-remove-comp は？
これは advice の名前なので, 関係ありません.

ad hoc な作りですけど >>909 は多分動くので,
興味がある人は試してみて下さいね.

以上.

read.cgi ver5.26+ (01/10/21-)