update.

[chise/est.git] / cwiki-edit.el

diff --git a/cwiki-edit.el b/cwiki-edit.el
index 4e273c4..0c9a07b 100644 (file)
--- 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)