From d1101dc76c81a101e8e80a66917be886dcc6125c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 9 Mar 2016 03:26:01 +0900 Subject: [PATCH] (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'. --- cwiki-common.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/cwiki-common.el b/cwiki-common.el index 97fbc62..f931c80 100644 --- 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") )) -- 1.7.10.4