From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Tue, 7 Dec 2010 16:03:59 +0000 (+0900)
Subject: (www-format-value-as-char-list): Use `object-representative-feature'
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=commitdiff_plain;h=41c0b860a4f9a9c4268fad2c70e6646d53c7b20d

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