[Emacs-diffs] Changes to emacs/lisp/international/iso-transl.el

[Richard M. Stallman]

Index: emacs/lisp/international/iso-transl.el
diff -c emacs/lisp/international/iso-transl.el:1.30 
emacs/lisp/international/iso-transl.el:1.31
*** emacs/lisp/international/iso-transl.el:1.30 Fri Dec  7 09:56:44 2001
--- emacs/lisp/international/iso-transl.el      Fri Dec 28 17:27:37 2001
***************
*** 79,203 ****
  ;; 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)
      ("' "   . "'")
      ("` "   . "`")
      ("\" "  . "\"")
--- 79,203 ----
  ;; writing the translation directly here.
  ;; That is for the sake of C-x 8 C-h.
  (defvar iso-transl-char-map
!   '(("* "   . [? ])
!     (" "    . [? ])
!     ("*!"   . [?¡])
!     ("!"    . [?¡])
!     ("\"\"" . [?¨])
!     ("\"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"   . [?þ])
!     ("~~"   . [?¬])
      ("' "   . "'")
      ("` "   . "`")
      ("\" "  . "\"")
***************
*** 207,309 ****
  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
--- 207,212 ----