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

SKK専用スレッド

894 ：名無しさん＠Ｍｅａｄｏｗ ：02/02/03 14:32

>890,891

便利そうなので作ってみました。C-wで最初の入力状態に戻れます。

;; skk-comp.el

;;++ 追加分はじめ
(define-key skk-j-mode-map "\C-w" 'skk-comp-kill)
(defvar skk-comp-point nil)
(defun skk-comp-kill (arg)
(interactive "*P")
(cond
((and (eq skk-henkan-mode 'on) (eq last-command 'skk-comp-do))
(kill-region skk-comp-point (point)))
((skk-emulate-original-map arg))))
;;-- 追加分おわり

以下を修正

(defun skk-comp-do (first &optional silent)
...
(when first
(setq skk-comp-stack nil
skk-comp-depth 0)
↓↓
(setq skk-comp-stack nil
skk-comp-depth 0
skk-comp-point (point))

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