From 3e0ffb571c72527b97e048162e78b6c0e1896179 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sat, 20 Nov 2010 14:07:03 +0900
Subject: [PATCH] (www-get-feature-value): Add error-handler for
 `concord-object-get'. (www-format-value-as-char-list):
 Refer feature `object-representation-format' instead of
 `name'. (www-format-apply-value): Modify to edit
 non-character object.

---
 cwiki-common.el |   15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/cwiki-common.el b/cwiki-common.el
index a94e7a3..939571b 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -139,8 +139,12 @@
 	  (char-feature object feature))
       )
      (t
-      (or (concord-object-get object latest-feature)
-	  (concord-object-get object feature))
+      (or (condition-case nil
+	      (concord-object-get object latest-feature)
+	    (error nil))
+	  (condition-case nil
+	      (concord-object-get object feature)
+	    (error nil)))
       ))))
 
 (defun get-previous-code-point (ccs code)
@@ -588,7 +592,9 @@
 						 '=id
 						 (concord-object-genre unit)
 						 'genre))
-					  (www-get-feature-value genre-o 'name)
+					  (www-get-feature-value
+					   genre-o
+					   'object-representation-format)
 					'name))))
 			 (www-format-eval-feature-value
 			  unit name-f nil nil nil ret
@@ -1000,10 +1006,11 @@
 	    without-edit
 	    (eq (plist-get props :mode) 'peek))
 	ret
-      (format "%s <a href=\"%s?char=%s&feature=%s&format=%s\"
+      (format "%s <a href=\"%s?%s=%s&feature=%s&format=%s\"
 ><input type=\"submit\" value=\"edit\" /></a>"
 	      ret
 	      chise-wiki-edit-url
+	      (concord-object-genre object)
 	      uri-object uri-feature format))))
 
 (defun www-format-eval-feature-value (object
-- 
1.7.10.4