(est-coded-charset-priority-list): Add `=ucs-itaiji-001'.

(coded-charset-GlyphWiki-id-alist): Prefer `=ucs-var-{001|002|003}',
`=ucs-itaiji-{002|084}' to `=ucs'; add setting for `=ucs-itaiji-001'.

diff --git a/cwiki-common.el b/cwiki-common.el
index 97fbc62..f931c80 100644 (file)
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -87,6 +87,7 @@
     =ruimoku-v6
     =big5
     =big5-cdp
+    =ucs-itaiji-001
     =ucs-itaiji-002))
 
 (defun decode-uri-string (string &optional coding-system)
@@ -1172,7 +1173,13 @@ style=\"vertical-align:middle\">"
 ;;;
 
 (defvar coded-charset-GlyphWiki-id-alist
-  '((=ucs              "u"     4 x nil)
+  '((=ucs-var-001      "u"     4 x "-var-001")
+    (=ucs-var-002      "u"     4 x "-var-002")
+    (=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-084   "u"     4 x "-itaiji-084")
+    (=ucs              "u"     4 x nil)
     (=adobe-japan1-0   "aj1-"  5 d nil)
     (=adobe-japan1-1   "aj1-"  5 d nil)
     (=adobe-japan1-2   "aj1-"  5 d nil)
@@ -1252,11 +1259,6 @@ style=\"vertical-align:middle\">"
     (=+>jis-x0208@1983 "j83-"  4 x nil)
     (=cbeta            "cb"    5 d nil)
     (=>>daikanwa       "dkw-"  5 d nil)
-    (=ucs-var-001      "u"     4 x "-var-001")
-    (=ucs-var-002      "u"     4 x "-var-002")
-    (=ucs-var-003      "u"     4 x "-var-003")
-    (=ucs-itaiji-002   "u"     4 x "-itaiji-002")
-    (=ucs-itaiji-084   "u"     4 x "-itaiji-084")
     (=big5-cdp-var-3   "cdp-"  4 x "-var-3")
     (=big5-cdp-var-5   "cdp-"  4 x "-var-5")
     ))