From fde7b0f380ef21a5dadd47dd779e5545516034fa Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 9 Dec 2010 14:23:15 +0900 Subject: [PATCH] (est-eval-unit): Fix bug about `name-url'; modify for `www-uri-make-feature-name-url'. --- est-eval.el | 2 ++ 1 file changed, 2 insertions(+) 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)) ) -- 1.7.10.4