Mercurial > emacs
diff lisp/international/latin1-disp.el @ 36050:8bc87faaa40f
Undo coding change, which screwed up somehow.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 12 Feb 2001 18:46:02 +0000 |
parents | 385e4217573c |
children | 1d714221177a |
line wrap: on
line diff
--- a/lisp/international/latin1-disp.el Mon Feb 12 18:09:36 2001 +0000 +++ b/lisp/international/latin1-disp.el Mon Feb 12 18:46:02 2001 +0000 @@ -1,4 +1,4 @@ -;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: iso-2022-7bit -*- +;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*- ;; Copyright (C) 2000 Free Software Foundation, Inc. @@ -208,66 +208,66 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,BF(B "'C" "C'") - (?,BP(B "'D" "/D") - (?,B&(B "'S" "S'") - (?,Bf(B "'c" "c'") - (?,Bp(B "'d" "/d") - (?,BE(B "'L" "L'") - (?,Bq(B "'n" "n'") - (?,BQ(B "'N" "N'") - (?,B`(B "'r" "r'") - (?,B@(B "'R" "R'") - (?,B6(B "'s" "s'") - (?,B<(B "'z" "z'") - (?,B,(B "'Z" "Z'") - (?,B!(B "`A" "A;") - (?,BJ(B "`E" "E;") - (?,B#(B "`L" "/L") - (?,B*(B "`S" ",S") - (?,B^(B "`T" ",T") - (?,B/(B "`Z" "Z^.") - (?,B1(B "`a" "a;") - (?,B3(B "`l" "/l") - (?,Bj(B "`e" "e;") - (?,B:(B "`s" ",s") - (?,B~(B "`t" ",t") - (?,B?(B "`z" "z^.") - (?,B(B "`." "'.") - (?,BC(B "~A" "A(") - (?,BH(B "~C" "C<") - (?,BO(B "~D" "D<") - (?,BL(B "~E" "E<") - (?,Bl(B "~e" "e<") - (?,B%(B "~L" "L<") - (?,BR(B "~N" "N<") - (?,BU(B "~O" "O''") - (?,BX(B "~R" "R<") - (?,B)(B "~S" "S<") - (?,B+(B "~T" "T<") - (?,B[(B "~U" "U''") - (?,B.(B "~Z" "Z<") - (?,Bc(B "~a" "a(}") - (?,Bh(B "~c" "c<") - (?,Bo(B "~d" "d<") - (?,B5(B "~l" "l<") - (?,Br(B "~n" "n<") - (?,Bu(B "~o" "o''") - (?,Bx(B "~r" "r<") - (?,B9(B "~s" "s<") - (?,B;(B "~t" "t<") - (?,B{(B "~u" "u''") - (?,B>(B "~z" "z<") - (?,B7(B "~v" "'<") ; ?,B"(B in latin-pre - (?,B"(B "~~" "'(") - (?,By(B "uu" "u^0") - (?,BY(B "UU" "U^0") - (?,BD(B "\"A") - (?,Bd(B "\"a") - (?,BK(B "\"E" "E:") - (?,Bk(B "\"e") - (?,B=(B "''" "'") - (?,B7(B "'<") ; Lynx's rendering of caron + '((?と "'C" "C'") + (?ひ "'D" "/D") + (?え "'S" "S'") + (?よ "'c" "c'") + (?を "'d" "/d") + (?で "'L" "L'") + (?ん "'n" "n'") + (?び "'N" "N'") + (?も "'r" "r'") + (?ぢ "'R" "R'") + (?じ "'s" "s'") + (?ぞ "'z" "z'") + (?ぎ "'Z" "Z'") + (?ぃ "`A" "A;") + (?ぬ "`E" "E;") + (?ぅ "`L" "/L") + (?が "`S" ",S") + (?む "`T" ",T") + (?け "`Z" "Z^.") + (?こ "`a" "a;") + (?さ "`l" "/l") + (?れ "`e" "e;") + (?ぜ "`s" ",s") + (? "`t" ",t") + (?ち "`z" "z^.") + (? "`." "'.") + (?づ "~A" "A(") + (?な "~C" "C<") + (?ぱ "~D" "D<") + (?の "~E" "E<") + (?ゎ "~e" "e<") + (?ぇ "~L" "L<") + (?ぴ "~N" "N<") + (?ぷ "~O" "O''") + (?ぺ "~R" "R<") + (?か "~S" "S<") + (?き "~T" "T<") + (?ぽ "~U" "U''") + (?ぐ "~Z" "Z<") + (?ゅ "~a" "a(}") + (?り "~c" "c<") + (?ゑ "~d" "d<") + (?し "~l" "l<") + (? "~n" "n<") + (? "~o" "o''") + (? "~r" "r<") + (?せ "~s" "s<") + (?そ "~t" "t<") + (? "~u" "u''") + (?だ "~z" "z<") + (?す "~v" "'<") ; ?い in latin-pre + (?い "~~" "'(") + (? "uu" "u^0") + (?ほ "UU" "U^0") + (?て "\"A") + (?ゆ "\"a") + (?ね "\"E" "E:") + (?ろ "\"e") + (?た "''" "'") + (?す "'<") ; Lynx's rendering of caron )))) ((eq set 'latin-3) @@ -277,34 +277,34 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,C!(B "/H") - (?,C"(B "~`" "'(") - (?,C&(B "^H" "H^") - (?,C6(B "^h" "h^") - (?,C)(B ".I" "I^.") - (?,C*(B ",S") - (?,C+(B "~G" "G(") - (?,C,(B "^J" "J^") - (?,C/(B ".Z" "Z^.") - (?,C1(B "/h") - (?,C9(B ".i" "i^.") - (?,C:(B ",s") - (?,C;(B "~g" "g(") - (?,C<(B "^j" "j^") - (?,C?(B ".Z" "z^.") - (?,CE(B ".c" "C^.") - (?,CF(B "^C" "C^") - (?,CU(B ".G" "G^.") - (?,CX(B "^G" "G^") - (?,C](B "~U" "U(") - (?,C^(B "^S" "S^") - (?,Ce(B ".C" "c^.") - (?,Cf(B "^c" "c^") - (?,Cu(B ".g" "g^.") - (?,Cx(B "^g" "g^") - (?,C}(B "~u" "u(") - (?,C~(B "^s" "s^") - (?,C(B "/." "^."))))) + '((?Γ "/H") + (?Δ "~`" "'(") + (?Θ "^H" "H^") + (?Ω "^h" "h^") + (?Λ ".I" "I^.") + (?Μ ",S") + (?Ν "~G" "G(") + (?Ξ "^J" "J^") + (?Ρ ".Z" "Z^.") + (?Τ "/h") + (?ケ ".i" "i^.") + (?コ ",s") + (?サ "~g" "g(") + (?シ "^j" "j^") + (?α ".Z" "z^.") + (?η ".c" "C^.") + (?θ "^C" "C^") + (?ψ ".G" "G^.") + (?リ "^G" "G^") + (?ン "~U" "U(") + (?゙ "^S" "S^") + (? ".C" "c^.") + (? "^c" "c^") + (? ".g" "g^.") + (? "^g" "g^") + (? "~u" "u(") + (? "^s" "s^") + (? "/." "^."))))) ((eq set 'latin-4) (when (or force @@ -313,55 +313,55 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,D!(B "A," "A;") - (?,D"(B "k/" "kk") - (?,D#(B "R," ",R") - (?,D%(B "I~" "?I") - (?,D&(B "L," ",L") - (?,D)(B "S~" "S<") - (?,D*(B "E-") - (?,D+(B "G," ",G") - (?,D,(B "T/" "/T") - (?,D.(B "Z~" "Z<") - (?,D1(B "a," "a;") - (?,D2(B "';") - (?,D3(B "r," ",r") - (?,D5(B "i~" "~i") - (?,D6(B "l," ",l") - (?,D7(B "'<") - (?,D9(B "s~" "s<") - (?,D:(B "e-") - (?,D;(B "g," ",g") - (?,D<(B "t/" "/t") - (?,D=(B "N/" "NG") - (?,D>(B "z~" "z<") - (?,D?(B "n/" "ng") - (?,D@(B "A-") - (?,DG(B "I," "I;") - (?,DH(B "C~" "C<") - (?,DJ(B "E," "E;") - (?,DL(B "E." "E^.") - (?,DO(B "I-") - (?,DQ(B "N," ",N") - (?,DR(B "O-") - (?,DS(B "K," ",K") - (?,DY(B "U," "U;") - (?,D](B "U~" "~U") - (?,D^(B "U-") - (?,D`(B "a-") - (?,Dg(B "i," "i;") - (?,Dh(B "c~" "c<") - (?,Dj(B "e," "e;") - (?,Dl(B "e." "e^.") - (?,Do(B "i-") - (?,Dp(B "d/" "/d") - (?,Dq(B "n," ",n") - (?,Dr(B "o-") - (?,Ds(B "k," ",k") - (?,Dy(B "u," "u;") - (?,D}(B "u~" "~u") - (?,D~(B "u-") - (?,D(B "^."))))) + '((?┌ "A," "A;") + (?┐ "k/" "kk") + (?┘ "R," ",R") + (?├ "I~" "?I") + (?┬ "L," ",L") + (?┼ "S~" "S<") + (?━ "E-") + (?┃ "G," ",G") + (?┏ "T/" "/T") + (?┛ "Z~" "Z<") + (?┳ "a," "a;") + (?┫ "';") + (?┻ "r," ",r") + (?┠ "i~" "~i") + (?┯ "l," ",l") + (?┨ "'<") + (?┿ "s~" "s<") + (?┝ "e-") + (?┰ "g," ",g") + (?┥ "t/" "/t") + (?┸ "N/" "NG") + (?╂ "z~" "z<") + (?ソ "n/" "ng") + (?タ "A-") + (?ヌ "I," "I;") + (?ネ "C~" "C<") + (?ハ "E," "E;") + (?フ "E." "E^.") + (?マ "I-") + (?ム "N," ",N") + (?メ "O-") + (?モ "K," ",K") + (?ル "U," "U;") + (?ン "U~" "~U") + (?゙ "U-") + (? "a-") + (? "i," "i;") + (? "c~" "c<") + (? "e," "e;") + (? "e." "e^.") + (? "i-") + (? "d/" "/d") + (? "n," ",n") + (? "o-") + (? "k," ",k") + (? "u," "u;") + (? "u~" "~u") + (? "u-") + (? "^."))))) ((eq set 'latin-5) (when (or force @@ -370,15 +370,15 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,Mp(B "~g" "g(") - (?,MP(B "~G" "G(") - (?,M](B ".I" "I^.") - (?,M~(B ",s") - (?,M^(B ",S") - (?,Mj(B "^e" "e<") ; from latin-post - (?,Ml(B ".e" "e^.") - (?,Mo(B "\"i" "i-") ; from latin-post - (?,M}(B ".i" "i."))))) + '((?昨 "~g" "g(") + (?災 "~G" "G(") + (?在 ".I" "I^.") + (? ",s") + (?材 ",S") + (?碕 "^e" "e<") ; from latin-post + (?作 ".e" "e^.") + (?搾 "\"i" "i-") ; from latin-post + (? ".i" "i."))))) ((eq set 'latin-8) (when (or force @@ -387,37 +387,37 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,_!(B ".B" "B`") - (?,_"(B ".b" "b`") - (?,_%(B ".c" "c`") - (?,_$(B ".C" "C`") - (?,_&(B ".D" "D`") - (?,_+(B ".d" "d`") - (?,_8(B "`w") - (?,_((B "`W") - (?,_:(B "'w" "w'") - (?,_*(B "'W" "W'") - (?,_<(B "`y") - (?,_,(B "`Y") - (?,_1(B ".f" "f`") - (?,_0(B ".F" "F`") - (?,_3(B ".g" "g`") - (?,_2(B ".G" "G`") - (?,_5(B ".m" "m`") - (?,_4(B ".M" "M`") - (?,_9(B ".p" "p`") - (?,_7(B ".P" "P`") - (?,_?(B ".s" "s`") - (?,_;(B ".S" "S`") - (?,_>(B "\"w") - (?,_=(B "\"W") - (?,_p(B "^w" "w^") - (?,_P(B "^W" "W^") - (?,_w(B ".t" "t`") - (?,_W(B ".T" "T`") - (?,_~(B "^y" "y^") - (?,_^(B "^Y" "Y^") - (?,_/(B "\"Y"))))) + '((?升 ".B" "B`") + (?召 ".b" "b`") + (?唱 ".c" "c`") + (?商 ".C" "C`") + (?嘗 ".D" "D`") + (?将 ".d" "d`") + (?昇 "`w") + (?妾 "`W") + (?昭 "'w" "w'") + (?宵 "'W" "W'") + (?松 "`y") + (?小 "`Y") + (?廠 ".f" "f`") + (?床 ".F" "F`") + (?承 ".g" "g`") + (?彰 ".G" "G`") + (?招 ".m" "m`") + (?抄 ".M" "M`") + (?昌 ".p" "p`") + (?捷 ".P" "P`") + (?樵 ".s" "s`") + (?晶 ".S" "S`") + (?樟 "\"w") + (?梢 "\"W") + (?条 "^w" "w^") + (?紹 "^W" "W^") + (?譲 ".t" "t`") + (?訟 ".T" "T`") + (? "^y" "y^") + (?鉦 "^Y" "Y^") + (?庄 "\"Y"))))) ((eq set 'latin-9) (when (or force @@ -426,14 +426,14 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,b((B "~s" "s<") - (?,b&(B "~S" "S<") - (?,b$(B "Euro" "E=") - (?,b8(B "~z" "z<") - (?,b4(B "~Z" "Z<") - (?,b>(B "\"Y") - (?,b=(B "oe") - (?,b<(B "OE"))))) + '((?耳 "~s" "s<") + (?示 "~S" "S<") + (?痔 "Euro" "E=") + (?失 "~z" "z<") + (?雫 "~Z" "Z<") + (?疾 "\"Y") + (?漆 "oe") + (?湿 "OE"))))) ((eq set 'greek) (when (or force @@ -441,82 +441,82 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,F!(B "9'") - (?,F"(B "'9") - (?,F/(B "-M") - (?,F5(B "'%") - (?,F6(B "'A") - (?,F8(B "'E") - (?,F9(B "'H") - (?,F:(B "'I") - (?,F<(B "'O") - (?,F>(B "'Y") - (?,F?(B "W%") - (?,F@(B "i3") - (?,FC(B "G*") - (?,FD(B "D*") - (?,FH(B "TH") - (?,FK(B "L*") - (?,FN(B "C*") - (?,FP(B "P*") - (?,FS(B "S*") - (?,FV(B "F*") - (?,FX(B "Q*") - (?,FY(B "W*") - (?,FZ(B "\"I") - (?,F[(B "\"Y") - (?,F\(B "a%") - (?,F](B "e%") - (?,F^(B "y%") - (?,F_(B "i%") - (?,F`(B "u3") - (?,Fa(B "a*") - (?,Fb(B "b*") - (?,Fc(B "g*") - (?,Fd(B "d*") - (?,Fe(B "e*") - (?,Ff(B "z*") - (?,Fg(B "y*") - (?,Fh(B "h*") - (?,Fi(B "i*") - (?,Fj(B "k") - (?,Fk(B "l*") - (?,Fl(B "m*") - (?,Fm(B "n*") - (?,Fn(B "c*") - (?,Fp(B "p*") - (?,Fq(B "r*") - (?,Fr(B "*s") - (?,Fs(B "s*") - (?,Ft(B "t*") - (?,Fu(B "u") - (?,Fv(B "f*") - (?,Fw(B "x*") - (?,Fx(B "q*") - (?,Fy(B "w*") - (?,Fz(B "\"i") - (?,F{(B "\"u") - (?,F|(B "'o") - (?,F}(B "'u") - (?,F~(B "'w"))) + '((?。 "9'") + (?「 "'9") + (?ッ "-M") + (?オ "'%") + (?カ "'A") + (?ク "'E") + (?ケ "'H") + (?コ "'I") + (?シ "'O") + (?セ "'Y") + (?ソ "W%") + (?タ "i3") + (?テ "G*") + (?ト "D*") + (?ネ "TH") + (?ヒ "L*") + (?ホ "C*") + (?ミ "P*") + (?モ "S*") + (?ヨ "F*") + (?リ "Q*") + (?ル "W*") + (?レ "\"I") + (?ロ "\"Y") + (?ワ "a%") + (?ン "e%") + (?゙ "y%") + (?゚ "i%") + (? "u3") + (? "a*") + (? "b*") + (? "g*") + (? "d*") + (? "e*") + (? "z*") + (? "y*") + (? "h*") + (? "i*") + (? "k") + (? "l*") + (? "m*") + (? "n*") + (? "c*") + (? "p*") + (? "r*") + (? "*s") + (? "s*") + (? "t*") + (? "u") + (? "f*") + (? "x*") + (? "q*") + (? "w*") + (? "\"i") + (? "\"u") + (? "'o") + (? "'u") + (? "'w"))) (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?,FA(B "A") - (?,FB(B "B") - (?,FE(B "E") - (?,FF(B "Z") - (?,FG(B "H") - (?,FI(B "I") - (?,FJ(B "J") - (?,FL(B "M") - (?,FM(B "N") - (?,FO(B "O") - (?,FQ(B "P") - (?,FT(B "T") - (?,FU(B "Y") - (?,FW(B "X") - (?,Fo(B "o"))))) + '((?チ "A") + (?ツ "B") + (?ナ "E") + (?ニ "Z") + (?ヌ "H") + (?ノ "I") + (?ハ "J") + (?フ "M") + (?ヘ "N") + (?マ "O") + (?ム "P") + (?ヤ "T") + (?ユ "Y") + (?ラ "X") + (? "o"))))) ((eq set 'hebrew) (when (or force @@ -533,34 +533,34 @@ (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?,H_(B "=2") - (?,H`(B "A+") - (?,Ha(B "B+") - (?,Hb(B "G+") - (?,Hc(B "D+") - (?,Hd(B "H+") - (?,He(B "W+") - (?,Hf(B "Z+") - (?,Hg(B "X+") - (?,Hh(B "Tj") - (?,Hi(B "J+") - (?,Hj(B "K%") - (?,Hk(B "K+") - (?,Hl(B "L+") - (?,Hm(B "M%") - (?,Hn(B "M+") - (?,Ho(B "N%") - (?,Hp(B "N+") - (?,Hq(B "S+") - (?,Hr(B "E+") - (?,Hs(B "P%") - (?,Ht(B "P+") - (?,Hu(B "Zj") - (?,Hv(B "ZJ") - (?,Hw(B "Q+") - (?,Hx(B "R+") - (?,Hy(B "Sh") - (?,Hz(B "T+"))))) + '((?衣 "=2") + (?謂 "A+") + (?違 "B+") + (?遺 "G+") + (?医 "D+") + (?井 "H+") + (?亥 "W+") + (?域 "Z+") + (?育 "X+") + (?郁 "Tj") + (?磯 "J+") + (?一 "K%") + (?壱 "K+") + (?溢 "L+") + (?逸 "M%") + (?稲 "M+") + (?茨 "N%") + (?芋 "N+") + (?鰯 "S+") + (?允 "E+") + (?印 "P%") + (?咽 "P+") + (?員 "Zj") + (?因 "ZJ") + (?姻 "Q+") + (?引 "R+") + (?飲 "Sh") + (?淫 "T+"))))) ((eq set 'cyrillic) (setq set 'cyrillic-iso) @@ -569,104 +569,104 @@ (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?,L"(B "Dj") - (?,L#(B "Gj") - (?,L$(B "IE") - (?,L)(B "Lj") - (?,L*(B "Nj") - (?,L+(B "Ts") - (?,L,(B "Kj") - (?,L.(B "V%") - (?,L/(B "Dzh") - (?,L1(B "B=") - (?,L3(B "") - (?,L4(B "D") - (?,L6(B "Z%") - (?,L7(B "3") - (?,L8(B "U") - (?,L9(B "J=") - (?,L;(B "L=") - (?,L?(B "P=") - (?,LC(B "Y") - (?,LD(B "") - (?,LF(B "C=") - (?,LG(B "C%") - (?,LH(B "S%") - (?,LI(B "Sc") - (?,LJ(B "=\"") - (?,LK(B "Y=") - (?,LL(B "%\"") - (?,LM(B "Ee") - (?,LN(B "Yu") - (?,LO(B "Ya") - (?,LQ(B "b") - (?,LR(B "v=") - (?,LS(B "g=") - (?,LT(B "g") - (?,LV(B "z%") - (?,LW(B "z=") - (?,LX(B "u") - (?,LY(B "j=") - (?,LZ(B "k") - (?,L[(B "l=") - (?,L\(B "m=") - (?,L](B "n=") - (?,L_(B "n") - (?,L`(B "p") - (?,Lb(B "t=") - (?,Ld(B "f=") - (?,Lf(B "c=") - (?,Lg(B "c%") - (?,Lh(B "s%") - (?,Li(B "sc") - (?,Lj(B "='") - (?,Lk(B "y=") - (?,Ll(B "%'") - (?,Lm(B "ee") - (?,Ln(B "yu") - (?,Lo(B "ya") - (?,Lp(B "N0") - (?,Lr(B "dj") - (?,Ls(B "gj") - (?,Lt(B "ie") - (?,Ly(B "lj") - (?,Lz(B "nj") - (?,L{(B "ts") - (?,L|(B "kj") - (?,L~(B "v%") - (?,L(B "dzh"))) + '((?犬 "Dj") + (?献 "Gj") + (?研 "IE") + (?見 "Lj") + (?謙 "Nj") + (?賢 "Ts") + (?軒 "Kj") + (?鍵 "V%") + (?険 "Dzh") + (?験 "B=") + (?元 "") + (?原 "D") + (?幻 "Z%") + (?弦 "3") + (?減 "U") + (?源 "J=") + (?現 "L=") + (?諺 "P=") + (?古 "Y") + (?呼 "") + (?姑 "C=") + (?孤 "C%") + (?己 "S%") + (?庫 "Sc") + (?弧 "=\"") + (?戸 "Y=") + (?故 "%\"") + (?枯 "Ee") + (?湖 "Yu") + (?狐 "Ya") + (?袴 "b") + (?股 "v=") + (?胡 "g=") + (?菰 "g") + (?誇 "z%") + (?跨 "z=") + (?鈷 "u") + (?雇 "j=") + (?顧 "k") + (?鼓 "l=") + (?五 "m=") + (?互 "n=") + (?午 "n") + (?呉 "p") + (?娯 "t=") + (?御 "f=") + (?梧 "c=") + (?檎 "c%") + (?瑚 "s%") + (?碁 "sc") + (?語 "='") + (?誤 "y=") + (?護 "%'") + (?醐 "ee") + (?乞 "yu") + (?鯉 "ya") + (?交 "N0") + (?侯 "dj") + (?候 "gj") + (?倖 "ie") + (?勾 "lj") + (?厚 "nj") + (?口 "ts") + (?向 "kj") + (? "v%") + (? "dzh"))) (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?,L!(B ",AK(B") - (?,L%(B "S") - (?,L&(B "I") - (?,L'(B ",AO(B") - (?,L((B "J") - (?,Lq(B ",Ak(B") - (?,L}(B ",A'(B") - (?,L-(B "-") - (?,L0(B "A") - (?,L2(B "B") - (?,L5(B "E") - (?,L:(B "K") - (?,L<(B "M") - (?,L=(B "H") - (?,L>(B "O") - (?,L@(B "P") - (?,LA(B "C") - (?,LB(B "T") - (?,LE(B "X") - (?,LP(B "a") - (?,LU(B "e") - (?,L^(B "o") - (?,La(B "c") - (?,Lc(B "y") - (?,Le(B "x") - (?,Lu(B "s") - (?,Lv(B "i") - (?,Lw(B ",Ao(B") - (?,Lx(B "j"))))) + '((?牽 "⇒") + (?硯 "S") + (?絹 "I") + (?県 "マ") + (?肩 "J") + (?佼 "") + (? "〒") + (?遣 "-") + (?顕 "A") + (?鹸 "B") + (?厳 "E") + (?玄 "K") + (?絃 "M") + (?舷 "H") + (?言 "O") + (?限 "P") + (?乎 "C") + (?個 "T") + (?固 "X") + (?糊 "a") + (?虎 "e") + (?伍 "o") + (?吾 "c") + (?後 "y") + (?悟 "x") + (?光 "s") + (?公 "i") + (?功 "") + (?効 "j"))))) (t (error "Unsupported character set: %S" set)))