From 2fa322c948ed95e25aab224b4455a6144e252d3b Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sun, 5 Dec 2010 03:07:32 +0900
Subject: [PATCH] (est-object-genre): New function. (www-format-apply-value):
 Use `est-object-genre' instead of `concord-object-genre'.

---
 cwiki-common.el |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/cwiki-common.el b/cwiki-common.el
index 939571b..21c2522 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -130,6 +130,11 @@
 	(intern (substring feature-name 0 (match-beginning 0)))
       feature)))
 
+(defun est-object-genre (object)
+  (if (characterp object)
+      'character
+    (concord-object-genre object)))
+
 (defun www-get-feature-value (object feature)
   (let ((latest-feature (char-feature-name-at-domain feature '$rev=latest)))
     (cond
@@ -1010,7 +1015,7 @@
 ><input type=\"submit\" value=\"edit\" /></a>"
 	      ret
 	      chise-wiki-edit-url
-	      (concord-object-genre object)
+	      (est-object-genre object)
 	      uri-object uri-feature format))))
 
 (defun www-format-eval-feature-value (object
-- 
1.7.10.4