(www-feature-value-format): Refer `value-presentation-format' as like

as `value-format'.

diff --git a/cwiki-common.el b/cwiki-common.el
index 29b4b1b..78c3481 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -85,13 +85,16 @@
       '((name) " : " (value))))
 
 (defun www-feature-value-format (feature-name)
-  (or (char-feature-property feature-name 'value-format)
+  (or (char-feature-property feature-name 'value-presentation-format)
+      (char-feature-property feature-name 'value-format)
       (let (fn parent ret)
        (setq fn feature-name)
        (while (and (setq parent (char-feature-name-parent fn))
                    (null (setq ret
-                               (char-feature-property
-                                parent 'value-format))))
+                               (or (char-feature-property
+                                    parent 'value-presentation-format)
+                                   (char-feature-property
+                                    parent 'value-format)))))
          (setq fn parent))
        ret)
       (let ((type (www-feature-type feature-name)))