From 59034c825b148221104393572b3ee332e3cde31f Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 5 Apr 2010 03:34:25 +0900
Subject: [PATCH] (www-uri-encode-char): Use `=ruimoku-v6'.
 (www-format-encode-string): Display `=ruimoku-v6'
 characters.

---
 cwiki-common.el |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/cwiki-common.el b/cwiki-common.el
index 34e6380..3b2d80c 100644
--- 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))
-- 
1.7.10.4