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