Assign new genre `region@ruimoku'.

[chise/est.git] / cwiki-view.el

diff --git a/cwiki-view.el b/cwiki-view.el
index 948b309..1b8d1fa 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -15,7 +15,7 @@
     (when object
       (when (and (eq genre 'character)
                 (= (length uri-object) 1))
-       (setq uri-object (www-uri-encode-char object)))
+       (setq uri-object (www-uri-encode-object object)))
       (when (= level 1)
        (princ
         (encode-coding-string
@@ -298,7 +298,7 @@ size=\"30\" maxlength=\"30\" value=\"%s\" />"
            (setq ret (match-end 0))
            (setq target
                  (concat "char="
-                         (www-uri-encode-char
+                         (www-uri-encode-object
                           (www-uri-decode-object
                            'character (match-string 1 target)))
                          (substring target ret))))