"ミニバッファの補完候補リストをチップヘルプにする"を便利にする

さっき見たループするのを実際に試してみる事に。
http://www.uranus.dti.ne.jp/~shiro-/soft/xyzzy/preference.html#tab
ここの↑ミニバッファの補完候補リストをチップヘルプにするをループして消えないように

(setq *print-completion-list-hook*
	  '(lambda (list prefix &optional string)
		(popup-list list
					'(lambda (arg)
					  (delete-region (point-min)(point-max))
					  (insert arg)
					  (refresh-screen))
					)))

ループは何か上手くいかないので、とりあえず、補完をlistから選択できるようにしただけで良しとした。

■追記
これは其のまま使うとminibufferでの操作はいいんだけど、普段の操作もおかしくなる傾向があるのでミニバッファだけで之が動作するように後から変えるので、今の奴は見なかったことにして、スルーで。

っていうか、RET押したらすでに同じ補完がされたので意味ない感じ。何とかループっぽくしたい感じ。

もう少し便利にするときに
■参考になりそうなののメモ
質問箱/173 - XyzzyWiki
http://xyzzy.s53.xrea.com/wiki/index.php?%BC%C1%CC%E4%C8%A2%2F173
Source of Nothingness - xyzzy lisp : 候補の絞込みをするpopup-list
http://raido.sakura.ne.jp/southly/rn/index.rb?1155827953.txt

■続き

  1. その1
  2. その2
  3. その3
  4. その4