[xyzzy:02263] Re: lisp からかな漢字変換

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

山本さん、こんにちは。

        Thu, 25 Mar 1999 21:29:20 +0900 の
        [xyzzy:02262] Re: lispからかな漢字変換
        への返事です。

> (toggle-ime nil)
> これでいいのだ。  (c)バカボンのパパ

やってくれましたね。亀井さんがマットーな方法がないっ
て言うから、ほっときましたが、なーるほどっちゅうか、
なんで? ちゅうか...うーん、すごい。

さっそく以下にあてはめてみたところ、期待通りに動きまし
た。m(..)m ------ と -------のあいだができなかった部分
です。(IME で同じくらいできるからあまり意味ないコード
です)


(defvar *ime-ka* '("カテイホウ" "カコカンリョウ"))   ;; 実際は半角
(defvar *ime-incf* 0)

(defun test ()
  (interactive)
  (unless (get-ime-mode)
	(toggle-ime))
  (if (eq *this-command* *last-command*)
	  (progn
-------------------------------
		(toggle-ime nil)
		(toggle-ime)
-------------------------------
		(if (= *ime-incf* (- (length *ime-ka*) 1))
			(setq *ime-incf* 0)
		  (setq *ime-incf* (1+ *ime-incf*)))
		(set-ime-read-string (nth (1+ *ime-incf*) *ime-ka*)))
	(set-ime-read-string (car *ime-ka*))))

(global-set-key #\S-F12 'test)


--------
須田誠也(suda seiya)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/