(www-feature-value-format): Refer `value-presentation-format' as like
authorMORIOKA Tomohiko <tomo.git@chise.org>
Mon, 26 Aug 2013 07:19:43 +0000 (16:19 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Mon, 26 Aug 2013 07:19:43 +0000 (16:19 +0900)
as `value-format'.

cwiki-common.el

index 29b4b1b..78c3481 100644 (file)
       '((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)))