projects / chise / est.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 030a86a)
(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 patch | blob | history

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)
       '((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
       (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)))
          (setq fn parent))
        ret)
       (let ((type (www-feature-type feature-name)))