From 4c813282bfc2ef686926bb6a9c764d9fc4f11752 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 12 Feb 2001 18:09:36 +0000 Subject: [PATCH] Doc fixes. Change coding to iso-2022-7bit. (latin1-display) : Add :link. (latin1-display) : Set variable latin1-display. --- lisp/international/latin1-disp.el | 784 +++++++++++++++--------------- 1 file changed, 394 insertions(+), 390 deletions(-) diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index 511ff03e81..0bcf85cd01 100644 --- a/lisp/international/latin1-disp.el +++ b/lisp/international/latin1-disp.el @@ -1,4 +1,4 @@ -;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*- +;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: iso-2022-7bit -*- ;; Copyright (C) 2000 Free Software Foundation, Inc. @@ -34,12 +34,12 @@ ;; For the Latin charsets the ASCII sequences are mostly consistent ;; with the Quail prefix input sequences. Latin-4 uses the Quail -;; postfix sequences as a prefix method isn't defined for Latin-4. +;; postfix sequences since a prefix method isn't defined for Latin-4. -;; A different approach is taken in the DOS display tables in +;; [A different approach is taken in the DOS display tables in ;; term/internal.el, and the relevant ASCII sequences from there are ;; available as an alternative; see `latin1-display-mnemonic'. Only -;; these sequences are used for Cyrillic, Greek and Hebrew. +;; these sequences are used for Cyrillic, Greek and Hebrew.] ;; If you don't even have Latin-1, see iso-ascii.el and use the ;; complete tables from internal.el. The ASCII sequences used here @@ -59,6 +59,7 @@ environments.") (defgroup latin1-display () "Set up display tables for ISO8859 characters using Latin-1." :version "21.1" + :link '(emacs-commentary-link "latin1-disp") :group 'i18n) (defcustom latin1-display-format "{%s}" @@ -99,8 +100,11 @@ See option `latin1-display' for the method. The members of the list must be in `latin1-display-sets'. With no arguments, reset the display for all of `latin1-display-sets'. See also `latin1-display-setup'." (if sets - (mapc #'latin1-display-setup sets) - (mapc #'latin1-display-reset latin1-display-sets))) + (progn (mapc #'latin1-display-setup sets) + (setq latin1-display t)) + (mapc #'latin1-display-reset latin1-display-sets) + (setq latin1-display nil)) + (redraw-display)) (defcustom latin1-display-mnemonic nil "Non-nil means to display potentially more mnemonic sequences. @@ -123,8 +127,8 @@ formatted using `latin1-display-format'." (defun latin1-display-identities (charset) "Display each character in CHARSET as the corresponding Latin-1 character. -CHARSET is a symbol naming a language environment using an ISO8859 -character set." +CHARSET is a symbol which is the nickname of a language environment +using an ISO8859 character set." (if (eq charset 'cyrillic) (setq charset 'cyrillic-iso)) (let ((i 32) @@ -137,7 +141,7 @@ character set." (defun latin1-display-reset (language) "Set up the default display for each character of LANGUAGE's charset. -CHARSET is a symbol naming a language environment using an ISO8859 +LANGUAGE is a symbol naming a language environment using an ISO8859 character set." (if (eq language 'cyrillic) (setq language 'cyrillic-iso)) @@ -204,66 +208,66 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?‚Æ "'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 + '((?,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 )))) ((eq set 'latin-3) @@ -273,34 +277,34 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?ƒ¡ "/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^") - (?ƒÿ "/." "^."))))) + '((?,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 "/." "^."))))) ((eq set 'latin-4) (when (or force @@ -309,55 +313,55 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?„¡ "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-") - (?„ÿ "^."))))) + '((?,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 "^."))))) ((eq set 'latin-5) (when (or force @@ -366,15 +370,15 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?ð "~g" "g(") - (?Ð "~G" "G(") - (?Ý ".I" "I^.") - (?þ ",s") - (?Þ ",S") - (?ê "^e" "e<") ; from latin-post - (?ì ".e" "e^.") - (?ï "\"i" "i-") ; from latin-post - (?ý ".i" "i."))))) + '((?,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."))))) ((eq set 'latin-8) (when (or force @@ -383,37 +387,37 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?¡ ".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"))))) + '((?,_!(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"))))) ((eq set 'latin-9) (when (or force @@ -422,14 +426,14 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?Ž¨ "~s" "s<") - (?Ž¦ "~S" "S<") - (?Ž¤ "Euro" "E=") - (?Ž¸ "~z" "z<") - (?Ž´ "~Z" "Z<") - (?Ž¾ "\"Y") - (?Ž½ "oe") - (?Ž¼ "OE"))))) + '((?,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"))))) ((eq set 'greek) (when (or force @@ -437,82 +441,82 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?†¡ "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"))) + '((?,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"))) (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?†Á "A") - (?†Â "B") - (?†Å "E") - (?†Æ "Z") - (?†Ç "H") - (?†É "I") - (?†Ê "J") - (?†Ì "M") - (?†Í "N") - (?†Ï "O") - (?†Ñ "P") - (?†Ô "T") - (?†Õ "Y") - (?†× "X") - (?†ï "o"))))) + '((?,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"))))) ((eq set 'hebrew) (when (or force @@ -529,34 +533,34 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?ˆß "=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+"))))) + '((?,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+"))))) ((eq set 'cyrillic) (setq set 'cyrillic-iso) @@ -565,104 +569,104 @@ is. If FORCE is non-nil, set up the display regardless." (mapc (lambda (l) (apply 'latin1-display-char l)) - '((?Œ¢ "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"))) + '((?,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"))) (mapc (lambda (l) (aset standard-display-table (car l) (string-to-vector (cadr l)))) - '((?Œ¡ "Ë") - (?Œ¥ "S") - (?Œ¦ "I") - (?Œ§ "Ï") - (?Œ¨ "J") - (?Œñ "ë") - (?Œý "§") - (?Œ­ "-") - (?Œ° "A") - (?Œ² "B") - (?Œµ "E") - (?Œº "K") - (?Œ¼ "M") - (?Œ½ "H") - (?Œ¾ "O") - (?ŒÀ "P") - (?ŒÁ "C") - (?ŒÂ "T") - (?ŒÅ "X") - (?ŒÐ "a") - (?ŒÕ "e") - (?ŒÞ "o") - (?Œá "c") - (?Œã "y") - (?Œå "x") - (?Œõ "s") - (?Œö "i") - (?Œ÷ "ï") - (?Œø "j"))))) + '((?,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"))))) (t (error "Unsupported character set: %S" set))) -- 2.20.1