- 456 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/08/02 03:05]
- >>454
以前もスレに貼った気がするけど。
;; ミニバッファ行頭にて `Q' を入力した時は、skk-henkan-key を補完
(defvar skk-henkan-key-org nil)
(defadvice skk-henkan-in-minibuff (around minibuff-complete-ad activate)
(let ((skk-henkan-key-org skk-henkan-key))
ad-do-it))
(defadvice skk-set-henkan-point-subr (around minibuff-complete-ad activate)
ad-do-it
(when (and (skk-in-minibuffer-p)
;; (with-current-buffer (skk-minibuffer-origin) skk-henkan-key) とか
skk-henkan-key-org
(equal last-input-event
(if (featurep 'xemacs)
(character-to-event ?Q)
?Q))
;;行頭の"▽"の直後
(= (point)
(1+ (if (fboundp 'minibuffer-prompt-end)
(minibuffer-prompt-end) 1))) ; point-min
;; カーソル以後に文字が無い
(not (char-after)))
(save-excursion
(insert skk-henkan-key-org))))
>>453
むりしてまで SKK 使わなくていいよ。
|
 |
