(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 (file)
--- 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