From 42d79a555c5d6942120ab0cc04692a9eaa11afe1 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 29 Mar 2010 22:16:13 +0900 Subject: [PATCH] (coded-charset-GlyphWiki-id-alist): Add setting for `=ucs@jis', `=jis-x0208@1978/-4pr' and `=jis-x0208@1978'. (char-GlyphWiki-id): Use `char-feature' instead of `encode-char'. --- cwiki-common.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/cwiki-common.el b/cwiki-common.el index a6815ef..e395bfd 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -841,18 +841,21 @@ (defvar coded-charset-GlyphWiki-id-alist '((=ucs "u" 4 x nil) - (=ucs@iso "u" 4 x "-u") - (=ucs@unicode "u" 4 x "-us") (=ucs@JP "u" 4 x 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) (=gt-k "gt-k" 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) @@ -878,7 +881,7 @@ ret) (while (and rest (setq spec (pop rest)) - (null (setq ret (encode-char char (car spec)))))) + (null (setq ret (char-feature char (car spec)))))) (when ret (format (format "%s%%0%d%s%s" (nth 1 spec) -- 1.7.10.4