(www-edit-display-char-feature-default): Use `www-char-feature'

instead of `char-feature'.
(www-edit-display-char-feature-as-ucs): Likewise.
(www-edit-display-char-desc): Likewise; replace value of char-spec
with value of `www-char-feature'.

diff --git a/cwiki-edit.el b/cwiki-edit.el
index dc633c9..7e4d6ae 100644 (file)
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -7,7 +7,7 @@
 (defun www-edit-display-char-feature-default (char feature-name &optional value
                                              lang)
   (unless value
-    (setq value (char-feature char feature-name)))
+    (setq value (www-char-feature char feature-name)))
   (www-html-display-paragraph
    (format "[[%s|%s?feature=%s]] : %s [[[edit|edit.cgi?char=%s&feature=%s]]]"
           (www-format-feature-name feature-name lang)
@@ -20,7 +20,7 @@
 
 (defun www-edit-display-char-feature-as-ucs (char feature-name &optional value)
   (unless value
-    (setq value (char-feature char feature-name)))
+    (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)
@@ -108,7 +108,9 @@ size=\"30\" maxlength=\"30\" value=\"%s\">
                       "0x"
                     "")
                   format
-                  (www-format-value (cdr cell) feature-name
+                  (www-format-value (www-char-feature char (car cell))
+                                    ;;(cdr cell)
+                                    feature-name
                                     format 'without-tags)))
          )
         (t
@@ -123,7 +125,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\">
            (princ "<ul>\n")
            (princ "<li>")
            (www-edit-display-input-box feature-name
-                                       (char-feature char feature-name)
+                                       (www-char-feature char feature-name)
                                        format)
            (princ "</li>")
            (princ "</ul>"))