update.

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

diff --git a/cwiki-common.el b/cwiki-common.el
index f931c80..2579d22 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -87,8 +87,13 @@
     =ruimoku-v6
     =big5
     =big5-cdp
+    =>cbeta
+    =mj
+    ==mj
+    ===mj
     =ucs-itaiji-001
-    =ucs-itaiji-002))
+    =ucs-itaiji-002
+    =ucs-itaiji-003))
 
 (defun decode-uri-string (string &optional coding-system)
   (if (> (length string) 0)
@@ -816,8 +821,8 @@
          (encode-coding-region (point-min)(point-max) 'utf-8-mcs-er)
 
          (goto-char (point-min))
-         (while (re-search-forward "&CB\\([0-9]+\\);" nil t)
-           (setq code (string-to-int (match-string 1)))
+         (while (re-search-forward "&\\(A-\\)?CB\\([0-9]+\\);" nil t)
+           (setq code (string-to-int (match-string 2)))
            (replace-match
             (format "<img alt=\"CB%05d\" src=\"%s/cb-gaiji/%02d/CB%05d.gif\"
 style=\"%s\">"
@@ -1178,6 +1183,7 @@ style=\"vertical-align:middle\">"
     (=ucs-var-003      "u"     4 x "-var-003")
     (=ucs-itaiji-001   "u"     4 x "-itaiji-001")
     (=ucs-itaiji-002   "u"     4 x "-itaiji-002")
+    (=ucs-itaiji-003   "u"     4 x "-itaiji-003")
     (=ucs-itaiji-084   "u"     4 x "-itaiji-084")
     (=ucs              "u"     4 x nil)
     (=adobe-japan1-0   "aj1-"  5 d nil)
@@ -1205,6 +1211,7 @@ style=\"vertical-align:middle\">"
     (=decomposition@hanyo-denshi)
     (=hanyo-denshi/ks  "koseki-" 6 d nil)
     (=>>hanyo-denshi/ks        "koseki-" 6 d nil)
+    (=koseki           "koseki-" 6 d nil)
     (=ucs@jis          "u"     4 x nil)
     (==ucs@jis         "u"     4 x nil)
     (==ucs@iso         "u"     4 x nil)