[xyzzy:03718] 変換後の undo

[吉田豊 <p95095yy@xxxxxxxxxxxxxxxxx>]

吉田．Ｙです。

仮名変換した後のundoの動作を、
delete-last-ime-composition()と同じ動作にしようと思い
以下のようなモノを書いてみたのですが思った動きをしません。

(defun exUndo ()
  (interactive)
  (let ((d (pop-ime-composition-string)))
	(if d
		(delete-last-ime-composition)
	  (undo))))

pop-ime-composition-stringの意味などは分からないまま
使っているので、とんちんかんなコードかも知れません。

どう書いたものでしょうか？
よろしくお願いします。
------------------------------------------------------------
吉田豊		e-mail <p95095yy@xxxxxxxxxxxxxxxxx>