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

diff --git a/cwiki-edit.el b/cwiki-edit.el
index 4e273c4..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
@@ -336,3 +348,5 @@ size=\"30\" maxlength=\"30\" value=\"%s\">に限\u5B9Aしない)
     (error nil
 	   (princ (format "%S" err)))
     ))
+
+(provide 'cwiki-edit)