レス数が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)

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