(iso-transl-char-map) Eliminate the

alias symbols--put the translated sequences here directly.

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"