From 77f17ee7b5150d5761b40ae209ba8b48070c2ce3 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 26 Aug 2013 16:19:43 +0900 Subject: [PATCH] (www-feature-value-format): Refer `value-presentation-format' as like as `value-format'. --- cwiki-common.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))) -- 1.7.10.4