From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 9 Dec 2010 05:23:15 +0000 (+0900)
Subject: (est-eval-unit): Fix bug about `name-url'; modify for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fde7b0f380ef21a5dadd47dd779e5545516034fa;p=chise%2Fest.git

(est-eval-unit): Fix bug about `name-url'; modify for
`www-uri-make-feature-name-url'.
---

diff --git a/est-eval.el b/est-eval.el
index 65ce97f..91b91f2 100644
--- a/est-eval.el
+++ b/est-eval.el
@@ -349,6 +349,7 @@
       )
      ((eq (car exp) 'name-url)
       (let ((fn (plist-get (nth 1 exp) :feature))
+	    (object (plist-get (nth 1 exp) :object))
 	    domain domain-fn)
 	(when fn
 	  (setq domain (char-feature-name-domain feature-name))
@@ -358,6 +359,7 @@
 	  (setq feature-name domain-fn)))
       (list 'name-url (list :feature feature-name)
 	    (www-uri-make-feature-name-url
+	     (est-object-genre object)
 	     (www-uri-encode-feature-name feature-name)
 	     uri-object))
       )