SKK Part5

>>235
おー、バッチリです。tnx.

久し振りに XEmacs立ち上げたので >>135をちょっと改訂。ほとんど検証してないけど。

(when kakutei-henkan
;; A, S, D, F, ... なら 'ignoreに
(if (cond
((featurep 'xemacs)
(memq (int-to-char (+ last-input-char (- ?a ?A))) ;[return] → ?\r
skk-henkan-show-candidates-keys))
(t
(and (numberp last-input-char) ;skk-henkan-in-minibuff で [return] → 'return, \C-m → 13
(memq (+ (- ?a ?A) last-input-char)
skk-henkan-show-candidates-keys))))
(let ((skk-update-jisyo-function 'ignore))
(skk-kakutei new-word))
(skk-kakutei new-word))))))

FSF Emacsでは last-input-charは完全に last-input-eventと同値という事なのかな?
read-char()と read-event()はちゃんと違うのにね。