[xyzzy:00428] Re: edict について

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田 さん、こんにちは。

    Wed, 16 Sep 1998 15:31:35 +0900 の
   “[xyzzy:00426] Re: edict について”
    への返事です.

| ついでといってはなんですが、以下の追加について、へただとか
| もっと美しくできるとかのコメントをいただければありがたいのですが。

テンポラリのバッファを使わずに、直接カレントバッファに突っ込む
方法があります。

(defun edict-lookup-dictionary-and-insert (from to dic dic2)
  (let* ((s (buffer-substring from to))
	 (r (lookup-dictionary *edict-dictionary-path*
			       "xyzzydic" dic s)))
    (unless r
      (plain-error "登録されていません: ~A" s))
    (with-output-to-selected-buffer
      (long-operation
	(format t "~A " s)
	(if dic2
	    (dolist (x (sort r #'string<))
	      (format t "~A~%" x)
	      (format t " ~{~A~^,~}~%~%"
		      (lookup-dictionary *edict-dictionary-path*
					 "xyzzydic" dic2 x)))
	  (format t "  ~{~A~^,~}~%" r)))))
  t)

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx