(www-uri-encode-char): Use `=ruimoku-v6'.

(www-format-encode-string): Display `=ruimoku-v6' characters.

diff --git a/cwiki-common.el b/cwiki-common.el
index 34e6380..3b2d80c 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -218,6 +218,7 @@
                      =>>jis-x0208 =>>jis-x0213-1
                      =>jis-x0208 =>jis-x0213-1
                      =>>gt
+                     =ruimoku-v6
                      =big5
                      =big5-cdp))
          ccs ret)
@@ -505,6 +506,7 @@
                '(=jis-x0208@1997       "J97-" 4 X)
                '(=jis-x0208@1978       "J78-" 4 X)
                '(=jis-x0208@1983       "J83-" 4 X)
+               '(=ruimoku-v6           "RUI6-" 4 X)
                '(=zinbun-oracle        "ZOB-" 4 d)
                '(=jef-china3           "JC3-" 4 X)
                '(=daikanwa             "M-" 5 d)
@@ -615,7 +617,17 @@
                     chise-wiki-glyph-cgi-url
                     code)
             t 'literal))
-         
+
+         (goto-char (point-min))
+         (while (re-search-forward "&RUI6-\\([0-9A-F]+\\);" nil t)
+           (setq code (string-to-int (match-string 1) 16))
+           (replace-match
+            (format "<img alt=\"RUI6-%04X\" src=\"%s?char=RUI6-%04X\">"
+                    code
+                    chise-wiki-glyph-cgi-url
+                    code)
+            t 'literal))
+
          (goto-char (point-min))
          (while (re-search-forward "&\\(UU\\+\\|U-\\)\\([0-9A-F]+\\);" nil t)
            (setq code (string-to-int (match-string 2) 16))