03/08/06 18:05
>>477 こんなのは(w
skk-search-all-progs() を改変して
skk-search-all-progs-with-okurichar-i() を用意。
skk-henkan-okurigana を nil → ""
skk-okuri-char を nil → "i"
にそれぞれ束縛するように。
(defun skk-search-with-xtu-or-tyouon ()
(let ((str1 (substring skk-henkan-key 0 (1- (length skk-henkan-key))))
(str2 (substring skk-henkan-key (1- (length skk-henkan-key))))
tmp-list)
(when (or (string= str2 "っ")
(string= str2 "ー"))
(setq tmp-list (skk-search-all-progs-with-okurichar-i (concat str1 "i")))
(mapcar #'(lambda (s)
(concat s str2))
tmp-list))))
(nconc skk-search-prog-list '((skk-search-with-xtu-or-tyouon)))
「こわi」とか「あせくさi」が辞書にある事が前提。