Commit a929f9e8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(iso-transl-char-map) Eliminate the

alias symbols--put the translated sequences here directly.
parent 74e1934a
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment