From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Mar 2010 13:59:28 +0000 (+0900)
Subject: (www-char-display-feature-default): Abolished.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=600491dd3cef170306832c8a029931480dd5dd85;p=chise%2Fest.git

(www-char-display-feature-default): Abolished.
(www-char-display-feature-as-ucs): Abolished.
(www-display-char-desc): Mount additional-features.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 9e0a10c..23f6469 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -5,32 +5,32 @@
 (defvar chise-wiki-edit-url "edit/edit.cgi")
 (defvar chise-wiki-add-url "edit/add.cgi")
 
-(defun www-char-display-feature-default (char feature-name &optional value
-					      lang uri-char)
-  (unless value
-    (setq value (www-char-feature char feature-name)))
-  (unless uri-char
-    (setq uri-char (char-to-string char)))
-  (www-html-display-paragraph
-   (format "[[%s|%?feature=%s&char=%s]] : %s [[[edit|%s?char=%s&feature=%s]]]"
-	   (www-format-feature-name feature-name lang)
-	   chise-wiki-view-url
-	   (www-uri-encode-feature-name feature-name)
-	   uri-char 
-	   (www-format-value value feature-name)
-	   chise-wiki-edit-url
-	   uri-char
-	   (www-uri-encode-feature-name feature-name)
-	   )))
+;; (defun www-char-display-feature-default (char feature-name &optional value
+;;                                               lang uri-char)
+;;   (unless value
+;;     (setq value (www-char-feature char feature-name)))
+;;   (unless uri-char
+;;     (setq uri-char (char-to-string char)))
+;;   (www-html-display-paragraph
+;;    (format "[[%s|%?feature=%s&char=%s]] : %s [[[edit|%s?char=%s&feature=%s]]]"
+;;            (www-format-feature-name feature-name lang)
+;;            chise-wiki-view-url
+;;            (www-uri-encode-feature-name feature-name)
+;;            uri-char 
+;;            (www-format-value value feature-name)
+;;            chise-wiki-edit-url
+;;            uri-char
+;;            (www-uri-encode-feature-name feature-name)
+;;            )))
 
-(defun www-char-display-feature-as-ucs (char feature-name &optional value)
-  (unless value
-    (setq value (www-char-feature char feature-name)))
-  (www-html-display-paragraph
-   (format "= [[U+%s|http://www.unicode.org/cgi-bin/GetUnihanData.pl?codepoint=%s]] (%d)"
-	   (www-format-value-as-HEX value)
-	   (www-format-value-as-HEX value)
-	   value)))
+;; (defun www-char-display-feature-as-ucs (char feature-name &optional value)
+;;   (unless value
+;;     (setq value (www-char-feature char feature-name)))
+;;   (www-html-display-paragraph
+;;    (format "= [[U+%s|http://www.unicode.org/cgi-bin/GetUnihanData.pl?codepoint=%s]] (%d)"
+;;            (www-format-value-as-HEX value)
+;;            (www-format-value-as-HEX value)
+;;            value)))
 
 (defun www-display-char-desc (uri-char &optional lang level)
   (unless level
@@ -55,6 +55,9 @@
 		     level))
       (if (> level 1)
 	  (princ "<ul>"))
+      (dolist (feature (char-feature-property '$object 'additional-features))
+	(mount-char-attribute-table
+	 (char-feature-name-at-domain feature '$rev=latest)))
       (dolist (cell (sort (char-attribute-alist char)
 			  (lambda (a b)
 			    (char-attribute-name< (car a)(car b)))))