X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=egg.el;h=905cb5339b7b3c3c1ce6611449433dbd3607a9f0;hb=fdbc48692ba6c472b60b31bc55a7501a80015711;hp=c386176b0976bb6900378bc65c8e0d50ecaf9163;hpb=66f90cdd59ec576dec7a30abf6a11a168c101b7c;p=elisp%2Fegg.git

diff --git a/egg.el b/egg.el
index c386176..905cb53 100644
--- a/egg.el
+++ b/egg.el
@@ -103,7 +103,7 @@
 ;; XXX: Should use backend interface
 (defun egg-toroku-region (start end)
   (interactive "r")
-  (let* ((env (wnn-get-environment))	; XXX
+  (let* ((env (wnn-get-environment wnn-dictionary-specification)) ; XXX
 	 (kanji (buffer-substring start end))
 	 (yomi (read-multilingual-string 
 		(format "辞書登録『%s』  読み:" kanji)))