(www-format-value-as-char-list): Use `object-representative-feature'

instead of `object-representation-format'; use
feature `object-representative-format' of genre object if
`object-representative-feature' of genre object or `name' is not
existed.

diff --git a/cwiki-format.el b/cwiki-format.el
index 4a14786..649cb45 100644 (file)
--- a/cwiki-format.el
+++ b/cwiki-format.el
@@ -54,12 +54,19 @@
                                                 'genre))
                                          (www-get-feature-value
                                           genre-o
-                                          'object-representation-format)
+                                          'object-representative-feature)
                                        'name))))
                         (www-format-eval-feature-value
                          unit name-f nil nil nil ret
                          'without-tags 'without-edit)
                         )
+                       ((and genre-o
+                             (setq ret (concord-object-get
+                                        genre-o
+                                        'object-representative-format)))
+                        (www-format-eval-list
+                         ret unit nil nil nil 'without-tags 'without-edit)
+                        )
                         (t
                         (www-format-encode-string
                          (format "%S" unit))