update.
[chise/est.git] / cwiki-add.el
index 554d048..9a12ea8 100644 (file)
@@ -3,6 +3,7 @@
 (defvar chise-wiki-edit-url "edit.cgi")
 
 (require 'cwiki-common)
+(require 'est-xml)
 
 (defun www-add-display-feature-input-box (char &optional format)
   (unless format
@@ -25,7 +26,7 @@ size=\"64\" maxlength=\"256\" value=\"\">
 (defun www-add-display-char-desc (uri-char &optional lang format)
   (when (stringp format)
     (setq format (intern format)))
-  (let ((char (www-uri-decode-char uri-char))
+  (let ((char (www-uri-decode-object 'character uri-char))
        char-spec)
     (when (characterp char)
       (princ
@@ -119,7 +120,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\">)</p>
        (princ (format "lang=%S\n" lang))
        (princ emacs-version)
        (princ " CHISE ")
-       (princ xemacs-chise-version)
+       (princ (encode-coding-string xemacs-chise-version 'utf-8-jp-er))
        (princ "
 </body>
 </html>")