From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sat, 4 Dec 2010 18:07:32 +0000 (+0900)
Subject: (est-object-genre): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2fa322c948ed95e25aab224b4455a6144e252d3b;p=chise%2Fest.git

(est-object-genre): New function.
(www-format-apply-value): Use `est-object-genre' instead of
`concord-object-genre'.
---

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