From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 26 Aug 2013 07:19:43 +0000 (+0900)
Subject: (www-feature-value-format): Refer `value-presentation-format' as like
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=77f17ee7b5150d5761b40ae209ba8b48070c2ce3;p=chise%2Fest.git

(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
--- 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)))