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

SKK専用スレッド

590 ：580 ：01/12/20 15:37

;; やっと割とマトモなのができた

(setq skk-rom-kana-rule-list
(append skk-rom-kana-rule-list
'(("-" nil skk-insert-ascii-or-kanji)
("," nil skk-insert-ascii-or-kanji)
("." nil skk-insert-ascii-or-kanji))))

(defun skk-insert-ascii-or-kanji (&optional arg)
(interactive "*p")
(setq arg (if arg
(car arg)
1))
(let ((c (char-to-string last-command-char)))
(while (> arg 0)
(insert (cond ((bobp) c)
((string-match skk-ascii-or-kanji-regexp
(char-to-string (char-before))) c)
(t (cdr (assoc c skk-ascii-or-kanji-alist)))))
(setq arg (1- arg)))))

としてはどうでしょう?
;; skk-rom-kana-rule-list は平易にするため敢えてこうしてます。
;; dot.skk 的にもこのほうがいいのでは?
skk-ascii-or-kanji-alist, skk-ascii-or-kanji-regex は
以前のを使います。
強制的に jis なのを使うには 'Q' で▽に入るってので妥協
でダメですか? 例えば '-' を20回入れたいって事もあるだろうし。
;; skk-ascii-or-kanji-(alist|regexp) の 'kanji' がちょっと
;; ひっかかる...

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