X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-edit.el;h=0c9a07bd7d62d34403032ccea1e092a214128d90;hp=4cad138c67bccaa63497d5cfee956d6174bbe4de;hb=HEAD;hpb=0630e892f410f60514edaf2ed37dd3c577552c1f

diff --git a/cwiki-edit.el b/cwiki-edit.el
index 4cad138..0c9a07b 100644
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -72,7 +72,7 @@
 
 (defun www-edit-display-object-desc (genre uri-object uri-feature-name
 					   &optional lang format)
-  (www-display-object-desc genre uri-object lang 1 nil
+  (www-display-object-desc genre uri-object nil lang 1 nil
 			   uri-feature-name format))
 
 ;; (defun www-edit-display-object-desc (genre uri-object uri-feature-name
@@ -232,6 +232,18 @@ size=\"30\" maxlength=\"30\" value=\"%s\">に限\u5B9Aしない)
 		(or (www-feature-value-format feature-name)
 		    'default))
 	       uri-feature-name)))
+    (if (eq property-name 'value-presentation-format)
+	(www-edit-display-feature-input-box
+	 feature-name property-name
+	 'default ; 'wiki-text
+	 (or (www-feature-value-format feature-name)
+	     'default))
+      (www-html-display-paragraph
+       (format "value-presentation-format : %s [[[edit|edit.cgi?feature=%s&property=value-presentation-format]]]"
+	       (www-xml-format-list
+		(or (www-feature-value-format feature-name)
+		    'default))
+	       uri-feature-name)))
     (if (eq property-name 'format)
 	(www-edit-display-feature-input-box
 	 feature-name property-name