From 4001a9e105f52ca64e311ab5d93f61a5c501fe04 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 12 Sep 2012 10:31:27 +0900 Subject: [PATCH] (www-uri-encode-object): Add `=jis-x0213-2', `=adobe-japan1', `=>>>adobe-japan1', `=>>>jis-x0208', `=>>>jis-x0213-1', `=>>>jis-x0213-2', `=>>jis-x0213-1', `=>>jis-x0213-2', `=>>adobe-japan1', `=+>jis-x0208', `=+>jis-x0213-1', `=+>jis-x0213-2', `=+>adobe-japan1', `=>>ucs@iso', `=>>ucs@unicode', `=>>ucs@jis', `=>>ucs@cns', `=>>ucs@ks', `=>>>ucs@iso', `=>>>ucs@unicode', `=>>>ucs@jis', `=>>>ucs@cns' and `=>>>ucs@ks' to ccs-list. (coded-charset-GlyphWiki-id-alist): Add settings for `=adobe-japan1-{0..5}', `=decomposition@cid', `=decomposition@hanyo-denshi', `=hanyo-denshi/ks', `=>>hanyo-denshi/ks', `=>>daikanwa', `=>>big5-cdp', `=>>>jis-x0208', `=>>jis-x0208', `=+>jis-x0208', `=>>>jis-x0208@1990', `=>>jis-x0208@1990', `=+>jis-x0208@1990', `=>>>jis-x0208@1983', `=>>jis-x0208@1983' and `=+>jis-x0208@1983'. (char-GlyphWiki-id): Support IVS representation. --- cwiki-common.el | 78 +++++++++++++++++++++++++++++++++++++++++-------------- 1 file changed, 58 insertions(+), 20 deletions(-) diff --git a/cwiki-common.el b/cwiki-common.el index 60a93a2..3de8052 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -431,19 +431,30 @@ =cns11643-4 =cns11643-5 =cns11643-6 =cns11643-7 =gb2312 =gb12345 =jis-x0208 =jis-x0208@1990 + =jis-x0213-2 =jis-x0212 + =adobe-japan1 =cbeta =jef-china3 =jis-x0213-1@2000 =jis-x0213-1@2004 =jis-x0208@1983 =jis-x0208@1978 =zinbun-oracle =>zinbun-oracle =daikanwa =gt =gt-k - =>>jis-x0208 =>>jis-x0213-1 + =>>>adobe-japan1 + =>>>jis-x0208 =>>>jis-x0213-1 =>>>jis-x0213-2 + =>>jis-x0208 =>>jis-x0213-1 =>>jis-x0213-2 + =>>adobe-japan1 + =+>jis-x0208 =+>jis-x0213-1 =+>jis-x0213-2 =+>jis-x0208@1978 + =+>adobe-japan1 =>jis-x0208 =>jis-x0213-1 =>>gt =>ucs@iso =>ucs@unicode =>ucs@jis =>ucs@cns =>ucs@ks + =>>ucs@iso =>>ucs@unicode + =>>ucs@jis =>>ucs@cns =>>ucs@ks + =>>>ucs@iso =>>>ucs@unicode + =>>>ucs@jis =>>>ucs@cns =>>>ucs@ks =ruimoku-v6 =big5 =big5-cdp)) @@ -850,26 +861,43 @@ style=\"vertical-align:middle\">" (defvar coded-charset-GlyphWiki-id-alist '((=ucs "u" 4 x nil) - (=ucs@JP "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) + (=adobe-japan1-3 "aj1-" 5 d nil) + (=adobe-japan1-4 "aj1-" 5 d nil) + (=adobe-japan1-5 "aj1-" 5 d nil) + (=adobe-japan1-6 "aj1-" 5 d nil) + (=decomposition@cid) + (=decomposition@hanyo-denshi) + (=hanyo-denshi/ks "koseki-" 6 d nil) + (=>>hanyo-denshi/ks "koseki-" 6 d nil) (=ucs@jis "u" 4 x nil) - (=ucs@gb "u" 4 x "-g") (=ucs@cns "u" 4 x "-t") - (=ucs@ks "u" 4 x "-k") - (=ucs@iso "u" 4 x "-u") - (=ucs@unicode "u" 4 x "-us") - (=adobe-japan1-6 "aj1-" 5 d nil) - (=gt "gt-" 5 d nil) - (=big5-cdp "cdp-" 4 x nil) - (=cbeta "cb" 5 d nil) - (=jis-x0208@1978/1pr "j78-" 4 x nil) - (=jis-x0208@1978/-4pr "j78-" 4 x nil) - (=jis-x0208@1978 "j78-" 4 x nil) - (=jis-x0208@1983 "j83-" 4 x nil) - (=jis-x0208@1990 "j90-" 4 x nil) (=jis-x0212 "jsp-" 4 x nil) (=jis-x0213-1@2000 "jx1-2000-" 4 x nil) (=jis-x0213-1@2004 "jx1-2004-" 4 x nil) (=jis-x0213-2 "jx2-" 4 x nil) + (=gt "gt-" 5 d nil) + (=daikanwa "dkw-" 5 d nil) + (=>>daikanwa "dkw-" 5 d nil) + (=gt-k "gt-k" 5 d nil) + (=jef-china3 "jc3-" 4 x nil) + (=big5 "b-" 4 x nil) + (=ks-x1001 "k0-" 4 x nil) + (=jis-x0208@1978/1pr "j78-" 4 x nil) + (=jis-x0208@1978/-4pr "j78-" 4 x nil) + (=jis-x0208@1978 "j78-" 4 x nil) + (=>>>jis-x0208@1978 "j78-" 4 x nil) + (=>>jis-x0208@1978 "j78-" 4 x nil) + (=+>jis-x0208@1978 "j78-" 4 x nil) + (=ucs@JP "u" 4 x nil) + (=ucs@gb "u" 4 x "-g") + (=ucs@ks "u" 4 x "-k") + (=ucs@iso "u" 4 x "-u") + (=ucs@unicode "u" 4 x "-us") + (=big5-cdp "cdp-" 4 x nil) + (=>>big5-cdp "cdp-" 4 x nil) (=cns11643-1 "c1-" 4 x nil) (=cns11643-2 "c2-" 4 x nil) (=cns11643-3 "c3-" 4 x nil) @@ -877,11 +905,19 @@ style=\"vertical-align:middle\">" (=cns11643-5 "c5-" 4 x nil) (=cns11643-6 "c6-" 4 x nil) (=cns11643-7 "c7-" 4 x nil) - (=daikanwa "dkw-" 5 d nil) - (=gt-k "gt-k" 5 d nil) - (=jef-china3 "jc3-" 4 x nil) - (=big5 "b-" 4 x nil) - (=ks-x1001 "k0-" 4 x nil) + (=jis-x0208 "j90-" 4 x nil) + (=>>>jis-x0208 "j90-" 4 x nil) + (=>>jis-x0208 "j90-" 4 x nil) + (=+>jis-x0208 "j90-" 4 x nil) + (=jis-x0208@1990 "j90-" 4 x nil) + (=>>>jis-x0208@1990 "j90-" 4 x nil) + (=>>jis-x0208@1990 "j90-" 4 x nil) + (=+>jis-x0208@1990 "j90-" 4 x nil) + (=jis-x0208@1983 "j83-" 4 x nil) + (=>>>jis-x0208@1983 "j83-" 4 x nil) + (=>>jis-x0208@1983 "j83-" 4 x nil) + (=+>jis-x0208@1983 "j83-" 4 x nil) + (=cbeta "cb" 5 d nil) )) (defun char-GlyphWiki-id (char) @@ -892,6 +928,8 @@ style=\"vertical-align:middle\">" (null (setq ret (char-feature char (car spec)))))) (when ret (or + (and (listp ret) + (mapconcat #'char-GlyphWiki-id ret "-")) (and (memq (car spec) '(=ucs@unicode '=ucs@iso)) (cond ((and (or (encode-char char '=jis-x0208@1990) -- 1.7.10.4