From a929f9e85dc1d26d7e98f24ecd944bf2e437a8e4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Dec 2001 22:27:37 +0000 Subject: [PATCH] (iso-transl-char-map) Eliminate the alias symbols--put the translated sequences here directly. --- lisp/international/iso-transl.el | 335 +++++++++++-------------------- 1 file changed, 119 insertions(+), 216 deletions(-) diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index f3a0cd8ed0c..cd5151c82ae 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -79,125 +79,125 @@ ;; writing the translation directly here. ;; That is for the sake of C-x 8 C-h. (defvar iso-transl-char-map - '(("* " . iso-transl-no-break-space) - (" " . iso-transl-no-break-space) - ("*!" . iso-transl-inverted-exclamation-mark) - ("!" . iso-transl-inverted-exclamation-mark) - ("\"\"" . iso-transl-diaeresis) - ("\"A" . iso-transl-A-umlaut) - ("\"E" . iso-transl-E-umlaut) - ("\"I" . iso-transl-I-umlaut) - ("\"O" . iso-transl-O-umlaut) - ("\"U" . iso-transl-U-umlaut) - ("\"a" . iso-transl-a-umlaut) - ("\"e" . iso-transl-e-umlaut) - ("\"i" . iso-transl-i-umlaut) - ("\"o" . iso-transl-o-umlaut) - ("\"s" . iso-transl-ss) - ("\"u" . iso-transl-u-umlaut) - ("\"y" . iso-transl-y-umlaut) - ("''" . iso-transl-acute-accent) - ("'A" . iso-transl-A-acute) - ("'E" . iso-transl-E-acute) - ("'I" . iso-transl-I-acute) - ("'O" . iso-transl-O-acute) - ("'U" . iso-transl-U-acute) - ("'Y" . iso-transl-Y-acute) - ("'a" . iso-transl-a-acute) - ("'e" . iso-transl-e-acute) - ("'i" . iso-transl-i-acute) - ("'o" . iso-transl-o-acute) - ("'u" . iso-transl-u-acute) - ("'y" . iso-transl-y-acute) - ("*$" . iso-transl-general-currency-sign) - ("$" . iso-transl-general-currency-sign) - ("*+" . iso-transl-plus-or-minus-sign) - ("+" . iso-transl-plus-or-minus-sign) - (",," . iso-transl-cedilla) - (",C" . iso-transl-C-cedilla) - (",c" . iso-transl-c-cedilla) - ("*-" . iso-transl-soft-hyphen) - ("-" . iso-transl-soft-hyphen) - ("*." . iso-transl-middle-dot) - ("." . iso-transl-middle-dot) - ("//" . iso-transl-division-sign) - ("/A" . iso-transl-A-ring) - ("/E" . iso-transl-AE) - ("/O" . iso-transl-O-slash) - ("/a" . iso-transl-a-ring) - ("/e" . iso-transl-ae) - ("/o" . iso-transl-o-slash) - ("1/2" . iso-transl-one-half) - ("1/4" . iso-transl-one-quarter) - ("3/4" . iso-transl-three-quarters) - ("*<" . iso-transl-angle-left) - ("<" . iso-transl-angle-left) - ("*=" . iso-transl-macron) - ("=" . iso-transl-macron) - ("*>" . iso-transl-angle-right) - (">" . iso-transl-angle-right) - ("*?" . iso-transl-inverted-question-mark) - ("?" . iso-transl-inverted-question-mark) - ("*C" . iso-transl-copyright-sign) - ("C" . iso-transl-copyright-sign) - ("*L" . iso-transl-pound-sign) - ("L" . iso-transl-pound-sign) - ("*P" . iso-transl-pilcrow) - ("P" . iso-transl-pilcrow) - ("*R" . iso-transl-registered-sign) - ("R" . iso-transl-registered-sign) - ("*S" . iso-transl-section-sign) - ("S" . iso-transl-section-sign) - ("*Y" . iso-transl-yen-sign) - ("Y" . iso-transl-yen-sign) - ("^1" . iso-transl-superscript-1) - ("^2" . iso-transl-superscript-2) - ("^3" . iso-transl-superscript-3) - ("^A" . iso-transl-A-caret) - ("^E" . iso-transl-E-caret) - ("^I" . iso-transl-I-caret) - ("^O" . iso-transl-O-caret) - ("^U" . iso-transl-U-caret) - ("^a" . iso-transl-a-caret) - ("^e" . iso-transl-e-caret) - ("^i" . iso-transl-i-caret) - ("^o" . iso-transl-o-caret) - ("^u" . iso-transl-u-caret) - ("_a" . iso-transl-ordinal-indicator-feminine) - ("_o" . iso-transl-ordinal-indicator-masculine) - ("`A" . iso-transl-A-grave) - ("`E" . iso-transl-E-grave) - ("`I" . iso-transl-I-grave) - ("`O" . iso-transl-O-grave) - ("`U" . iso-transl-U-grave) - ("`a" . iso-transl-a-grave) - ("`e" . iso-transl-e-grave) - ("`i" . iso-transl-i-grave) - ("`o" . iso-transl-o-grave) - ("`u" . iso-transl-u-grave) - ("*c" . iso-transl-cent-sign) - ("c" . iso-transl-cent-sign) - ("*o" . iso-transl-degree-sign) - ("o" . iso-transl-degree-sign) - ("*u" . iso-transl-micro-sign) - ("u" . iso-transl-micro-sign) - ("*m" . iso-transl-micro-sign) - ("m" . iso-transl-micro-sign) - ("*x" . iso-transl-multiplication-sign) - ("x" . iso-transl-multiplication-sign) - ("*|" . iso-transl-broken-vertical-line) - ("|" . iso-transl-broken-vertical-line) - ("~A" . iso-transl-A-tilde) - ("~D" . iso-transl-D-stroke) - ("~N" . iso-transl-N-tilde) - ("~O" . iso-transl-O-tilde) - ("~T" . iso-transl-THORN) - ("~a" . iso-transl-a-tilde) - ("~d" . iso-transl-d-stroke) - ("~n" . iso-transl-n-tilde) - ("~o" . iso-transl-o-tilde) - ("~t" . iso-transl-thorn) - ("~~" . iso-transl-not-sign) + '(("* " . [? ]) + (" " . [? ]) + ("*!" . [?¡]) + ("!" . [?¡]) + ("\"\"" . [?¨]) + ("\"A" . [?Ä]) + ("\"E" . [?Ë]) + ("\"I" . [?Ï]) + ("\"O" . [?Ö]) + ("\"U" . [?Ü]) + ("\"a" . [?ä]) + ("\"e" . [?ë]) + ("\"i" . [?ï]) + ("\"o" . [?ö]) + ("\"s" . [?ß]) + ("\"u" . [?ü]) + ("\"y" . [?ÿ]) + ("''" . [?´]) + ("'A" . [?Á]) + ("'E" . [?É]) + ("'I" . [?Í]) + ("'O" . [?Ó]) + ("'U" . [?Ú]) + ("'Y" . [?Ý]) + ("'a" . [?á]) + ("'e" . [?é]) + ("'i" . [?í]) + ("'o" . [?ó]) + ("'u" . [?ú]) + ("'y" . [?ý]) + ("*$" . [?¤]) + ("$" . [?¤]) + ("*+" . [?±]) + ("+" . [?±]) + (",," . [?¸]) + (",C" . [?Ç]) + (",c" . [?ç]) + ("*-" . [?­]) + ("-" . [?­]) + ("*." . [?·]) + ("." . [?·]) + ("//" . [?÷]) + ("/A" . [?Å]) + ("/E" . [?Æ]) + ("/O" . [?Ø]) + ("/a" . [?å]) + ("/e" . [?æ]) + ("/o" . [?ø]) + ("1/2" . [?½]) + ("1/4" . [?¼]) + ("3/4" . [?¾]) + ("*<" . [?«]) + ("<" . [?«]) + ("*=" . [?¯]) + ("=" . [?¯]) + ("*>" . [?»]) + (">" . [?»]) + ("*?" . [?¿]) + ("?" . [?¿]) + ("*C" . [?©]) + ("C" . [?©]) + ("*L" . [?£]) + ("L" . [?£]) + ("*P" . [?¶]) + ("P" . [?¶]) + ("*R" . [?®]) + ("R" . [?®]) + ("*S" . [?§]) + ("S" . [?§]) + ("*Y" . [?¥]) + ("Y" . [?¥]) + ("^1" . [?¹]) + ("^2" . [?²]) + ("^3" . [?³]) + ("^A" . [?Â]) + ("^E" . [?Ê]) + ("^I" . [?Î]) + ("^O" . [?Ô]) + ("^U" . [?Û]) + ("^a" . [?â]) + ("^e" . [?ê]) + ("^i" . [?î]) + ("^o" . [?ô]) + ("^u" . [?û]) + ("_a" . [?ª]) + ("_o" . [?º]) + ("`A" . [?À]) + ("`E" . [?È]) + ("`I" . [?Ì]) + ("`O" . [?Ò]) + ("`U" . [?Ù]) + ("`a" . [?à]) + ("`e" . [?è]) + ("`i" . [?ì]) + ("`o" . [?ò]) + ("`u" . [?ù]) + ("*c" . [?¢]) + ("c" . [?¢]) + ("*o" . [?°]) + ("o" . [?°]) + ("*u" . [?µ]) + ("u" . [?µ]) + ("*m" . [?µ]) + ("m" . [?µ]) + ("*x" . [?×]) + ("x" . [?×]) + ("*|" . [?¦]) + ("|" . [?¦]) + ("~A" . [?Ã]) + ("~D" . [?Ð]) + ("~N" . [?Ñ]) + ("~O" . [?Õ]) + ("~T" . [?Þ]) + ("~a" . [?ã]) + ("~d" . [?ð]) + ("~n" . [?ñ]) + ("~o" . [?õ]) + ("~t" . [?þ]) + ("~~" . [?¬]) ("' " . "'") ("` " . "`") ("\" " . "\"") @@ -208,103 +208,6 @@ Each element has the form (STRING . VECTOR). The sequence STRING of ASCII chars translates into the sequence VECTOR. (VECTOR is normally one character long.)") -(defalias 'iso-transl-no-break-space [? ]) -(defalias 'iso-transl-inverted-exclamation-mark [?¡]) -(defalias 'iso-transl-cent-sign [?¢]) -(defalias 'iso-transl-pound-sign [?£]) -(defalias 'iso-transl-general-currency-sign [?¤]) -(defalias 'iso-transl-yen-sign [?¥]) -(defalias 'iso-transl-broken-vertical-line [?¦]) -(defalias 'iso-transl-section-sign [?§]) -(defalias 'iso-transl-diaeresis [?¨]) -(defalias 'iso-transl-copyright-sign [?©]) -(defalias 'iso-transl-ordinal-indicator-feminine [?ª]) -(defalias 'iso-transl-angle-left [?«]) -(defalias 'iso-transl-not-sign [?¬]) -(defalias 'iso-transl-soft-hyphen [?­]) -(defalias 'iso-transl-registered-sign [?®]) -(defalias 'iso-transl-macron [?¯]) -(defalias 'iso-transl-degree-sign [?°]) -(defalias 'iso-transl-plus-or-minus-sign [?±]) -(defalias 'iso-transl-superscript-2 [?²]) -(defalias 'iso-transl-superscript-3 [?³]) -(defalias 'iso-transl-acute-accent [?´]) -(defalias 'iso-transl-micro-sign [?µ]) -(defalias 'iso-transl-pilcrow [?¶]) -(defalias 'iso-transl-middle-dot [?·]) -(defalias 'iso-transl-cedilla [?¸]) -(defalias 'iso-transl-superscript-1 [?¹]) -(defalias 'iso-transl-ordinal-indicator-masculine [?º]) -(defalias 'iso-transl-angle-right [?»]) -(defalias 'iso-transl-one-quarter [?¼]) -(defalias 'iso-transl-one-half [?½]) -(defalias 'iso-transl-three-quarters [?¾]) -(defalias 'iso-transl-inverted-question-mark [?¿]) -(defalias 'iso-transl-A-grave [?À]) -(defalias 'iso-transl-A-acute [?Á]) -(defalias 'iso-transl-A-caret [?Â]) -(defalias 'iso-transl-A-tilde [?Ã]) -(defalias 'iso-transl-A-umlaut [?Ä]) -(defalias 'iso-transl-A-ring [?Å]) -(defalias 'iso-transl-AE [?Æ]) -(defalias 'iso-transl-C-cedilla [?Ç]) -(defalias 'iso-transl-E-grave [?È]) -(defalias 'iso-transl-E-acute [?É]) -(defalias 'iso-transl-E-caret [?Ê]) -(defalias 'iso-transl-E-umlaut [?Ë]) -(defalias 'iso-transl-I-grave [?Ì]) -(defalias 'iso-transl-I-acute [?Í]) -(defalias 'iso-transl-I-caret [?Î]) -(defalias 'iso-transl-I-umlaut [?Ï]) -(defalias 'iso-transl-D-stroke [?Ð]) -(defalias 'iso-transl-N-tilde [?Ñ]) -(defalias 'iso-transl-O-grave [?Ò]) -(defalias 'iso-transl-O-acute [?Ó]) -(defalias 'iso-transl-O-caret [?Ô]) -(defalias 'iso-transl-O-tilde [?Õ]) -(defalias 'iso-transl-O-umlaut [?Ö]) -(defalias 'iso-transl-multiplication-sign [?×]) -(defalias 'iso-transl-O-slash [?Ø]) -(defalias 'iso-transl-U-grave [?Ù]) -(defalias 'iso-transl-U-acute [?Ú]) -(defalias 'iso-transl-U-caret [?Û]) -(defalias 'iso-transl-U-umlaut [?Ü]) -(defalias 'iso-transl-Y-acute [?Ý]) -(defalias 'iso-transl-THORN [?Þ]) -(defalias 'iso-transl-ss [?ß]) -(defalias 'iso-transl-a-grave [?à]) -(defalias 'iso-transl-a-acute [?á]) -(defalias 'iso-transl-a-caret [?â]) -(defalias 'iso-transl-a-tilde [?ã]) -(defalias 'iso-transl-a-umlaut [?ä]) -(defalias 'iso-transl-a-ring [?å]) -(defalias 'iso-transl-ae [?æ]) -(defalias 'iso-transl-c-cedilla [?ç]) -(defalias 'iso-transl-e-grave [?è]) -(defalias 'iso-transl-e-acute [?é]) -(defalias 'iso-transl-e-caret [?ê]) -(defalias 'iso-transl-e-umlaut [?ë]) -(defalias 'iso-transl-i-grave [?ì]) -(defalias 'iso-transl-i-acute [?í]) -(defalias 'iso-transl-i-caret [?î]) -(defalias 'iso-transl-i-umlaut [?ï]) -(defalias 'iso-transl-d-stroke [?ð]) -(defalias 'iso-transl-n-tilde [?ñ]) -(defalias 'iso-transl-o-grave [?ò]) -(defalias 'iso-transl-o-acute [?ó]) -(defalias 'iso-transl-o-caret [?ô]) -(defalias 'iso-transl-o-tilde [?õ]) -(defalias 'iso-transl-o-umlaut [?ö]) -(defalias 'iso-transl-division-sign [?÷]) -(defalias 'iso-transl-o-slash [?ø]) -(defalias 'iso-transl-u-grave [?ù]) -(defalias 'iso-transl-u-acute [?ú]) -(defalias 'iso-transl-u-caret [?û]) -(defalias 'iso-transl-u-umlaut [?ü]) -(defalias 'iso-transl-y-acute [?ý]) -(defalias 'iso-transl-thorn [?þ]) -(defalias 'iso-transl-y-umlaut [?ÿ]) - ;; Language-specific translation lists. (defvar iso-transl-language-alist '(("Esperanto" -- 2.39.2